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ABSTRACT 


The  set  of  programs  known  as  "MIT  Geophysics 
Program  Set  I"  has  been  expanded,  edited,  and  upgraded  to 
form  Set  II.  This  new  set  consists  of  267  programs  for 
the  IBM  709»  7090,  709^  and  is  available  to  qualified  appli¬ 
cants,  via  magnetic  tape  copies  of  the  symbolic  decks, 
from  the  Seismic  Data  Laboratory  of  United  Electrodynamics. 

A  complete  copy  requires  two  2400  foot  high  density  (900 
BPI)  tapes. 


The  symbolic  decks  of  Set  II  form  an  interlocking 
system  of  self -documenting  (including  examples)  subroutines 
written  in  FORTRAN  and  FAP  (compatible  with  FORTRAN-11 ) 
concerned  primarily  with  single  and  multiple  time  series 
analysis.  Because  of  the  subroutine  nature  of  its  con¬ 
struction,  however,  much  of  the  system  is  readily  accessible 
for  use  in  other  computational  areas. 

The  new  programs  in  Set  II  concentrate  largely 
on  utility  functions  (graphical  and  other  input-output, 
miscellaneous  numerical  operators)  and  on  time  series 
operators  for  multidimensional  and  multi-input  processes 
(including  in  particular  high  speed  recursion  techniques 
for  solving  least  squares  simultaneous  equations).  A  hand¬ 
ful  of  specialized  or  outmoded  programs  from  Set  I  has  been 
suppressed;  most  of  the  others  have  been  upgraded  with 
respect  to  documentation;  and  some  have  been  modified  with 
respect  to  coding. 
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1.  Introduction 


MIT  Geophysics  Program  Set  II  is  an  expanded, 
modified  version  of  Program  Set  I  which  was  introduced 
(Simpson,  1962)  as  follows. 


"The  MIT  Department  of  Geology  and  Geophysics 
has  a  history  in  time  series  computations  by  high 
speed  computers  which  extends  back  to  1952  when 
it  began  using  Whirlwind  I  to  instrument  Wiener's 
optimum  filter  concepts  in  the  signal-noise  prob¬ 
lems  of  reflection  seismology.  Since  then  it  has 
steadily  developed  and  expanded  the  computer 
technology  of  time  series  analysis,  adapting 
computational  concepts  to  the  shifting  ground  of 
new  machine  languages. 

"The  programs  developed  in  this  process  have 
been  made  available  on  an  individual  basis  in 
the  past  but,  particularly  with  impetus  from 
VELA  UNIFORM  research,  the  increased  volume  of 
requests  have  necessitated  a  more  concentrated 
effort  to  systematize  this  distribution.  More¬ 
over,  the  widespread  adoption  of  FORTRAN  and 
IBM  700  series  machines  Justifies  for  us  the 
considerable  effort  we  have  taken  to  carefully 
document  and  assemble  the  large  number  of  our 
most  useful  programs  which  we  are  now  making 
available  as  "MIT  Geophysics  Program  Set  I. 

"Symbolic  programs  are  the  best  for  general 
distribution  and  because  of  the  number  of  cards 
involved  (over  23,000)  we  have  chosen  to  transmit 
them  by  magnetic  tape.  The  symbolic  programs  on 
the  tape  copies  are  completely  self-explanatory. 
The  present  report  is  concerned  with  supplementary 
information  such  as  complete  tables  of  contents, 
conventions  used  in  program  design  and  descrip¬ 
tion,  details  on  the  production  and  testing  of 
the  master  tape,  and  a  KWIC-type  index  to  the 
programs . 

"The  bulk  of  the  programs  included  are  the 
work  of  Stephen  M.  Simpson,  Jr.,  Jon  F.  Claerbout, 
James  N.  Galbraith,  and  Ralph  A.  Wiggins,  but 
they  include  contributions  from  Jacqueline  Clark, 
Enders  A.  Robinson,  Roy  J.  Greenfield,  and  there 
are  a  few  programs  originating  in  the  MIT  Compu¬ 
tation  Center  as  well  as  one  or  two  modifications 
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of  FORTRAN  system  routines.  Authorship  is  given 
individually  in  the  comment  cards  of  each  program. 

NThe  production  and  testing  of  the  master  tape 
involved  not  only  the  work  of  the  authors  but 
also  extensive  test  program  writing  by  Joseph 
Proctto  and  seemingly  endless  card  preparation, 
handling  and  editing  by  Elizabeth  Studer,  Dauna 
Trop,  and  Karl  Oentili  to  whom  the  authors  are 
most  grateful. 

"Test  computations  were  performed  bosh  on  the 
IBM  7090  at  the  MIT  Computation  Center  and  on 
the  IBM  709  of  the  Cooperative  Computing  Lab¬ 
oratory  of  MIT,  with  the  valuable  assistance  of 
Michael  Saxton  and  Anthony  Sacco,  respectively." 


The  above  jervea  to  introduce  Program  Set  II 
with  the  following  additional  comments 

1.  The  symbolic  card  count  no  exceeds  50,000. 

2.  The  names  of  Mrs.  Myrna  Kasser,  Regina 
Lahtelne,  and  Mrs.  Barbara  Cullum  should  be  added  to  the 
list  of  those  assisting  in  punched  card  work  and  the  names 
of  John  Harmon,  Thomas  Burhoe,  Mason  Fleming  and  William 
Jarvis  to  the  list  of  computer  operators. 

3.  The  IBM  7094  of  the  MIT  Computation  Center 
was  the  principal  computing  instrument  used  during  the 
period  since  Program  Set  I. 


REFERENCE 

Simpson,  Jr.,  S.  M.,  1962,  Magnetic  tape  copies  of  MIT 
Geophysics  Program  Set  I  (Time  series  programs 
for  the  IBM,  709,  7090):  Scl.  Rept.  4  of  Contract 
AF  19(604)7378,  AFCRL-6  5-237,  IrpE  Project 
VELA  UNIFORM. 
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The  symbolic  versions  of  the  267  programs  of 
Set  II  appear  on  two  BCD  tapes,  116  on  the  first  tape  and 
151  on  the  second.  The  first  file  of  each  tape  gives  a 
table  of  contents  for  that  tape,  and  the  remaining  files 
are  the  successive  programs,  ordered  alphabetically  by 
program  name,  terminated  by  an  ’’END  TAPE'*  file.  Consequently 
the  first  tape  contains  118  files  and  the  second  one  153 
files.  The  following  11  pages  show  listings  of  the  first 
files  of  the  two  tapes. 


Listing  of  first  file  of  Tape  1  of 
Program  Set  II  (Page  1  of  5) 


•  TABLE  OF  CONTENTS 

•  FILE  NO.  1  ON  THIS  TAPE  IS 
•TABLE  OF  CONTENTS 

2  ON  THIS  TAPE  IS 
FAST  ABSOLUTE  VALUE  OF  A  VECTOR 

3  ON  in.i  TAPE  IS 

MOO'f-Y  AUTO-  OR  CROSS -COR  RELATIONS  FOR  DANIELL  SPECTRA 

4  ON  THIS  TAPE  IS 

MODIFY  A  SET  OF  VARIABLES  BY  A  CONSTANT  OR  BY  CONSTANTS 

5  ON  THIS  TAPE  IS 

AMPLITUDE  AND  PHASE  FROM  REAL  AND  I MAG' NARY t  OR  REVERSE 

6  ON  THIS  TAPE  IS 

FIND  A  MATRIX  COLUMN  WITH  ARBITRARY  INDEX  BY  INTERPOLATION 

7  ON  THIS  TAPE  IS 
ARCTANGENT  FUNCTION 

8  ON  THIS  TAPE  IS 

FAST  COSINE  TRANSFORMS  OF  ONE-SIDED  AUTOCORRELATIONS 

9  ON  THIS  TAPE  IS 

AUTOSPECTRUM  BY  COSINE  TRANSFORM  OF  AUTOCORRELATION 

10  ON  THIS  TAPE  IS 
FIND  AVERAGE  OF  FLOATING  VECTOR 

11  ON  THIS  TAPE  IS 

SUMMATION  OF  VECTOR  OVER  ABUTTING  BLOCKS  OF  CONSTANT  LENGTH 

12  ON  THIS  TAPE  IS 

AOD  A  CONSTANT  TO  ELEMENTS  OF  A  FXU  OR  FLTG  VECTOR 

13  ON  THIS  TAPE  IS 

SPACE  CARRIAGE  N  LINES  OR  RESTORE  PAGE 

14  ON  THIS  TAPE  IS 

COMPUTE  CHI-SQUARE  FOR  CONSTANT  PROBABILITY  CASE 

15  ON  THIS  TAPE  IS 

SET  A  LIST  OF  VARIABLES  TO  ONE  OF  TWO  SETS  OF  VALUES 

16  ON  THIS  TAPE  IS 

FAST  REVERSAL  OF  SPECIAL  VECTORS  (AS  PRODUCED  BY  SPLIT) 

17  ON  THIS  TAPE  IS 
CHANGE  ALL  SIGN  BITS  OF  A  VECTOR 

18  ON  THIS  TAPE  IS 

CHErx  IF  INTERVAL  TIMER  IS  ON  MAKING  ON-LINE  REQUEST  IF  NOT 

19  ON  THIS  TAPE  IS 

FOR  REAL  TIME  TIMING  IN  SECONOS  USING  7090  INTERVAL  CLOCK 

20  ON  THIS  TaPE  IS 

COMPARE  PAIRS  OF  VARIABLES  OR  A  SET  OF  VARIABLES  FOR  EQUALITY 

21  ON  THIS  TAPE  IS 

FAST  COMPARE  TWO  ARBITRARY  MOOE  VECTORS  FOR  IDENTITY 

22  ON  THIS  TAPE  IS 

COMPARE  ARITHMETICALLY  TWO  WORDS  WHERE  -0  IS  LESS  THAN  *0 

23  ON  THIS  TtPE  IS 

CONTOUR  A  MATRIX  ON  THE  PRINTER  IN  DECIBELS 

24  ON  THIS  TAPE  IS 

FIND  CONTOUR  LEVELS  FOR  PLOTTING  A  ROW  OF  DATA 

25  ON  THIS  TAPL  IS 

LABEL  PRINTER  COLUMNS  WITH  INCREASING  3-OIGIT  INTEGERS 

26  OH  THIS  TAPE  IS 

COLLAPSE  ONE-SIDED  VECTOR  INTO  SMALLER  RANGE 

27  ON  THIS  TAPE  IS 

CONTOUR  OF  MATRIX  SUBSET  ON  OFF-LINE  PRINTER 


• 

•A' SVAL 

FILE 

NO, 

• 

•ADANL 

FILE 

NO, 

• 

•  AOCK 

FILE 

NO, 

• 

•AMPHZ 

FILE 

NO, 

• 

•ARBCCL 

FILE 

NO, 

• 

•ARCTAN 

FILE 

NO, 

• 

•ASPECT 

F  II  c 

NO, 

• 

•ASPECT 

FILE 

NO, 

• 

•AVRACE 

FILE 

NO, 

• 

•BLKSLM 

FILE 

NO, 

• 

•BOOST 

FILE 

NO 

• 

•CARIGE 

FILE 

NO 

• 

•CHISCR 

FILE 

NO 

• 

•CHOOSE 

FILE 

NO 

• 

•CHPRTS 

FILE 

NO 

• 

•  CHS  I GN 

FILE 

NO 

• 

•CLKOK 

FILE 

NO 

• 

FILE 

NO 

•CLCCK1 

(7090) 

• 

•CMP ARP 

FILE 

NO 

• 

•CMPARV 

FILE 

NO 

• 

•CMPRA 

FILE 

NO 

• 

•CNTRC6 

FILE 

NO 

• 

•CNTRCW 

FILE 

NC 

• 

•COL AEL 

FILE 

Nn 

• 

•COLAPS 

FILE 

NO 

• 

•CGNTLR 

FILE 

NO 
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Listing  of  first  file  of  Tape  I  of 
Program  Set  II  (Page  2  of  5) 


•  FILE  NO. 

•CONVLV 

•  FILE  NO. 

•CONVLV- 1 1 

•  FILE  NO. 

•COSIS 

•  FILE  NO. 

•COSP 

•  FILE  NO. 

•COSTBL 

•  FILE  NO. 

•CPYFL2 

•  FILE  NO. 

•CROSS 

•  FILE  NO. 

•CROST 

•  FILE  NO. 

•CRSVP 

•  FILE  NO. 

•CSOUT 

•  FILE  NO. 

•CUFIT1 

•  FILE  NO. 

*CV  SOLI 

•  FILE  NO. 

•DACECK 

•  FILE  NO. 

•DELTA 

•  FILE  NO. 

•DERIVA 

•  FILE  NO. 

•DIFPRS 

•  FILE  NO. 

•DISPLA  (7091 

•  FILE  NO. 

•DI SPLA( 70901 

•  FILE  NO. 

•DIVICE 

•  FILE  NO. 

•DOTJ 

•  FILE  NO. 

•DOTP 

•  FILE  NO. 

•DSPFPT 

•  FILE  NO. 

•DUBLX 

•  FILE  NO. 

•EXCHVS 

•  FILF  NO. 

•EXPAND 

•  FILE  NO. 

•FACTOR 

•  FILE  NO. 

•FAPSLH 


28  ON  THIS  TAPE  IS 

COMPLETE  CONVOLUTION  OF  TWO  TRANSIENTS 

29  ON  THIS  TAPE  IS 

COMPLETE  CONVOLUTION  OF  TWO  TRANSIENTS 

30  UN  THIS  TAPE  IS 

FAST  COSINE  AND/OR  SINE  TRANSFORMS  OF  ODD-LENGTH  SERIES 

31  ON  THIS  TAPE  IS 

FAST  COSINE  AND/OR  SINE  TRANSFORMS  FROM  2  OR  4  EVEN-ODD  PARTS 

32  ON  THIS  TAPE  IS 

GENERATE  COSINE  OR  SINE  HALF-KAVE  TABLES »  FIXED  OR  FLOATING 

33  ON  THIS  TAPE  IS 

FAST  COPY  FILE  FROM  ONE  TAPE  TO  ANOTHER  -  VERSION  2 

34  ON  THIS  TAPE  IS 

CR0SSC0RRELA7 ICN  OF  TRANSIENTS  BEGINNING  WITH  ZERO  LAG 

35  ON  THIS  TAPE  IS 

CROSSCUKXELATION  OF  TRANSIENTS  BEGINNING  WITH  ANY  LAG 

36  ON  THIS  TAPE  IS 

CROSSCORRELATION  OF  TRANSIENT  VECTORS  OF  MATRICES 

37  ON  THIS  TAPE  IS 

OUTPUT  VARIABLES  FIVE  PER  LINE  IN  G  FORMAT 

38  ON  THIS  TAPE  IS 

FIND  CUBIC  WHICH  EXACTLY  FITS  4  FO'.mLLY  ED  POINTS 

39  ON  THIS  TAPE  IS 

OUTPUT  COLUMN  VECTORS  BY  NORMAL  OR  LITERAL  FORMATS 

40  ON  THIS  TAPE  IS 

LIST  DATA  DECK  AND  REPOSITION  TAPE  TO  FRONT  OF  DECK 

41  ON  THIS  TAPE  IS 

DELTA  FUNCTION  AND  STEP  FUNCTIONS,  FLOATING  AND  FIXED  POINT 

42  ON  THIS  TAPF  IS 

DERIVATIVE  OF  A  VECTOR  BY  DIFFERENCING 

43  ON  THIS  TAPE  IS 

DIFFERENCE  FIXED  OR  FLOATING  VECTOR  ELEMENTS  IN  PAIRS 

44  ON  THIS  TAPE  IS 

WRITE  HOLLERITH  TEXT  ON  SCOPE 

45  ON  THIS  TAPE  IS 

WRITE  HOLLERITH  TEXT  ON  SCOPE 

46  ON  THIS  TAPE  IS 

DIVIDE  A  FLOATING  VECTOR  BY  A  CONSTANT 

47  ON  THIS  TAPE  IS 

v;  EC  TOR  DOT  PRODUCT  WITH  ARBITRARY  INCREMENTS 

48  ON  THIS  TAPE  IS 

DISPLACED  DOT  PRODUCT  OF  2-DIMENSIONAL  ARRAYS 

49  OK  THIS  TAPE  IS 

VARIABLE  ORIGIN  FORMAT  GENERATOR  FOR  SCOPE  SUBROUTINE  DISPLA 

50  ON  THIS  TAPE  IS 

FAST  DOUBLING  OR  HALVING  OF  A  VECTOR  (FIXED  OR  FLOATING) 

51  ON  THIS  TAPE  IS 
EXCHANGE  ANY  TWO  VECTORS 

52  ON  THIS  TAPE  IS 

HI-SPEED  EXPANSION  OF  A  VECTOR  UNDER  CUBIC  INTERPOLATION 

53  ON  THIS  TAPE  IS 

FACTOR  POWER  SPECTRUM  TO  FIND  MINIMUM  PHASE  WAVELET 

54  ON  THIS  TAPE  IS 
COMPUTE  A  LOGICAL  SUMCHEOK 
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Mb  ting  of  first  file  of  Tape  1  of 


Program  Set  II  (Page  3  of 


•  FILE  NO. 

•  FASrM 

•  FILE  NO. 

•fasclb 

•  FILE  NO. 

•FASTRK 

•  FILE  NO. 

•  FOOT 

•  FILE  NO. 

•FIRE2 

•  FILE  NO. 

•F  I XV 

•  FILE  NO. 

•FLOATM 

•  FILE  NO. 

•FLCATV 

•  FILE  NO. 

•FMTOLT 

•  FILE  NO. 

•FNCFPT 

•  FILE  NO. 

•FRAME  (7091 

•  FILE  NO. 

•FRAME (7090 ) 

•  FILE  NO. 

•FRQCT1 

•  FILE  NC. 

•FRQCT2 

•  FILE  NO. 

•FSKIP 

•  FILE  NO. 

•  FT24 

•  FILE  NO. 

•FT24  -II 

•  FILE  NO. 

•FXCATA 

•  FILE  NO. 

•GENHCL 

•  FILE  NO. 

•GETHCL 

•  FILE  NO. 

•GETRCl 

•  FILE  NO. 

•GETX 

•  FILE  NO. 

•GNFLTl 

•  FILE  NO. 

•GNH0L2 

•  FILE  NO. 

•GRAPE 

•  FILE  NO. 

•GRAPFX 

•  FILE  NO. 

•GRUP2 


55  ON  THIS  TAPE  IS 

FAST  SCAN  VECTOR  FOR  ELEMENT  EQUAL  OR  GRE.-TER  THAN  GIVEN  VALUE 

56  ON  THIS  TAPE  IS 

FAST  EVALUATE  CUBIC  FOR  EVENLY  SPACEO  ARGUMENTS 

57  ON  THIS  TAPE  IS 

FAST  TRACK  THROUGH  A  VECTOR  OF  INDICES 

58  ON  THIS  TAPE  IS 

FAST  OCT  PROOUCT  OF  TWO  VECTORS 

59  ON  THIS  TAPE  IS 
TWO-OIMENSIQNAL  FILTER  BY  RECURSION 

60  ON  THIS  TAPE  IS 

FIX  A  FLOATING  VECTOR  WITH  OR  WITHOUT  ROUNOING 

61  ON  THIS  TAPE  IS 

FLOAT  ANY  MACHINE  LANGUAGE  INTEGER 

62  ON  THIS  TAPE  IS 
FLOAT  A  VECTOR 

63  ON  THIS  TAPE  IS 

WRITE  OUTPUT  TAPE  WITH  NORMAL  OR  LITERAL  FORMAT  VECTOR 

64  ON  THIS  TAPE  14 

ACCESS  TO  LITERAL  OR  ORDINARY  FORMAT 

65  ON  THIS  TAPE  IS 
ADVANCE  FILM  FRAME  ON  SCOPE 

66  ON  THIS  TAPE  IS 
ADVANCE  FILM  FRAME  ON  SCOPE 

67  ON  THIS  TAPE  iS 

FREQUENCY  DISTRIBUTION  OF  A  FIXED  POINT  VECTOR 

68  ON  THIS  TAPE  IS 

FREQUENCY  COUNT  OF  NUMBER  OF  VALUES  OF  A  SERIES  IN  GIVEN  RANGES 

69  ON  THIS  TAPE  IS 

SKIP  FORWARD  OR  BACKWARO  OVER  FILES  ON  TAPE 

70  ON  THIS  TAPE  IS 

HIGH  SPEED  24  POINT  SPECTRUM 

71  ON  THIS  TAPE  IS 

HIGH  SPEED  24  POINT  SPECTRUM 

72  ON  THIS  TAPE  IS 

SCALE*  CONVERT  FLTG.  VECTOR  TO  MACHINE  INTEGERS  OR  CONVERSELY 

73  ON  THIS  TAPE  IS 
GENERATE  HOLLERITH  FIELO 

74  ON  THIS  TAPE  IS 

GET  HOLLERITH  DATA  FROM  CALLING  SEQUENCE 

75  ON  THIS  TAPE  IS 

ACCESS  ROUTINE  FOR  RAND  CORP.  MILLION  RANOOM  OIGITS  FROM  TAPE 

76  ON  THIS  TAPE  IS 

ALLOWS  VARIABLE  OEPTH  INDEXING  OF  VECTORS 

77  ON  THIS  TAPE  IS 

GENERATE  SYMMETRICAL  FI.  TER  WITH  GIVEN  AMPLITUDE  RESPONSE 

78  ON  THIS  TAPE  IS 
GENERATE  HOLLERITH  CHARACTERS 

79  ON  THIS  TAPE  IS 

MULTIPLE  FRAME  SCOPE  PLOTS  OF  VECTOR  SETS 

80  ON  THIS  TAPE  IS 

SUBROUTINE  GRAPH  EXPANDED  OVER  VERTICAL  FRAMES 

81  ON  THIS  TAPE  IS 

r IV  IDE  THE  X  AXIS  INTO  EQUALLY  PROBABLE  RANGES 
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FILE  NO.  82  ON  THIS  TAPE  IS 

HOLLERITH  LEFT  ADJUST  OR  RIGHT  ADJUST  FUNCTION 
: ILE  NO.  83  ON  THIS  TAPE  IS 
HSTPLT  HISTOGRAM  PLOTTING  FOR  SUBROUTINE  GRAPH 

FILE  NO.  84  ON  THIS  TAPE  IS 
HSTPLT-I I  BAR  GRAPH  PLOTTING  FOR  SUBROUT ' NE  GRAPH 

FILE  NO.  85  ON  THIS  TAPE  IS 

HSTPLT-I 11(7091  CUBIC  CURVE  SCOPE  PLOTTING  FOR  SUBROUTINE  GRAPH 
FILE  NO.  86  ON  THIS  TAPE  IS 

HSTPLT-III (70901  CUBIC  CURVE  SCOPE  PLOTTING  FOR  SUBROUTINE  GRAPH 


FILE  NO.  87  ON  THIS  TAPE  IS 

HVIOIV  SPREAD  OUT  HOLLERITH  VECTOR  AS  FORTRAN  INTEGERS 

FILE  NO.  88  ON  THIS  TAPE  IS 

IDER1V  INVERSION  OF  DIFFERENTIATION  BY  DIFFERENCING 

FILE  NO.  89  ON  THIS  TAPE  IS 

1FNCTN  INVERSION  OF  A  MONOTONE  FUNCTION  BY  LINEAR  INTERPOLATION 

FILE  NO.  90  ON  THIS  TAPE  IS 
IINTGR  INVERSION  OF  TRAPEZOIDAL  INTEGRAL 

FILE  NO.  91  ON  THIS  TAPE  IS 

1N0ATA  FAST  AND  CONVENIENT  RETRIEVAL  OF  JAT A  FROM  A  SPECIAL  TAPE 

FILE  NO.  92  ON  THIS  TAPE  IS 

INOEX  HYBRID  SUBPROGRAMS  FOR  INCREMENTING*  TESTING*  AND  SETTING 

FILE  NO.  93  ON  THIS  TAPE  IS 
INTGRA  INDEFINITE  INTEGRAL  BY  TRAPEZOIDAL  RULE 

FILE  NO.  94  ON  THIS  TAPE  IS 
INTHCL  INTERPRET  HOLLERITH 

FILE  NO.  95  ON  THIS  TAPE  IS 

INTOPR  INTERPOLATION  OPERATOR  FOR  l  TO  4  EVENLY  SPACED  DATA  VALUES 

FILE  NO.  96  ON  THIS  TAPE  IS 

INTSLM  INTEGRATED  SUMMATION  OF  A  FLOATING  OF  FIXED  VECTOR 

FILE  NO.  97  ON  THIS  TAPE  IS 
IPLVEV  COMPLEX  POLYNOMIAL  EVALUATION 

FILE  NO.  98  ON  THIS  TAPE  IS 

ITOMLI  FAST  CONVERT  FORTRAN  INTEGER  VECTOR  TO  ML  I  VECTOR 

FILE  NO.  99  ON  THIS  TAPE  IS 

IVTOFV  PACK  UP  FORTRAN  INTEGER  VECTOR  AS  HOLLERITH  VECTOR 

FILE  NO.  100  ON  THIS  TAP"  IS 
IXCARG  LOCATE  ARGUMENT  MITH  RESPECT  TO  COMMON 

FILE  NO.  101  ON  THIS  TAPE  IS 

K I  INTI  PROBABILITY  THAT  A  CHI-SQUARED  VARIATE  EXCEEOS  A  VALUE 

FILE  NO.  102  ON  THIS  TAPE  IS 

KOLAPS  COLLAPSE  ODD-LENGTHED  VECTOR  ABOUT  ITS  MIDPOINT 

FILE  NO.  103  ON  THIS  TAPE  IS 

LIMITS  CHECK  THAT  VARIABLES  FROM  LIST  FALL  WITHIN  GIVEN  LIMITS 

FILE  NO.  104  ON  THIS  TAPE  IS 

LINE  (709)  FAST  ARBITRARY  STRAIGHT  LINE  SEGMENT  ON  SCOPE 

FILE  NO.  105  ON  THIS  TAPE  IS 

LINE  (7090)  FAST  ARBITRARY  STRAIGHT  LINE  SEGMENT  ON  SCOPE 

FILE  NO.  106  ON  THIS  TAPE  IS 
LINEF  (709)  PLOT  FAST  HORIZONTAL  LINE  ON  SCOPE 
FILE  NO.  107  ON  THIS  TAPE  IS 
LINEM7090)  PLOT  FAST  HORIZONTAL  LINE  ON  SCOPE 

FILE  NO.  108  ON  THIS  TAPE  IS 
LINEV  (709)  PLOT  FAST  VERTICAL  LINE  ON  SCOPE 


Listing  of  first  file  of  Tape  I  of 
Program  Set  II  (Page  3  of  5) 


• 

FILE 

NO 

•L INEV ( 7090 ) 

• 

*  wINTRl 

FILE 

NO 

• 

•LISTNG 

FILE 

NO 

• 

•LOC 

FILE 

NO 

• 

•LOCATE 

FILE 

NO 

• 

•LSHFI 

FILE 

NO 

• 

•LSLINE 

FILE 

NO 

• 

•LSSS1 

FILE 

NO 

• 

•PATINV 

FILE 

NO 

• 

FILE 

NO 

•  ENC  TAPE  CARD 


.  109  ON  THIS  TAPE  IS 

PLOT  FAST  VERTICAL  LINE  ON  SCOPE 
.  110  ON  THIS  TAPE  IS 

LINEAR  INTERPOLATION  IN  A  TABLE 
.  Ill  ON  THIS  TAPE  IS 

LIST  AUXILIARY  INFORMATION  FOR  AN  INDATA-OUDATA  TYPE  TAPE 
.  112  ON  THIS  TAPE  IS 

CORE  LOCATION  WITH  INDEXABLE  ARGUMENT 
.  113  ON  THIS  TAPE  IS 

LOCATE  AND  OPERATE  SUBROUTINES  BY  PROXY  CALL  STATEMENTS 
.  114  ON  THIS  TAPE  IS 
LOGICAL  SHIFT  FUNCTION 
.  115  ON  THIS  TAPE  IS 
LEAST  SQUARES  LINE 
.  116  ON  THIS  TAPE  IS 

LEAST  SQUARES  SHAPER  BY  SIDEWAYS  ITERATION 
.  117  ON  THIS  TAPE  IS 
INVERSE  OF  A  MATRIX 
.  118  ON  THIS  TAPE  IS 
IN  FORMAT! 1H*(6X(8HEND  TAPE  I 


* 
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Listing  of  First  file  of  Tape  2  of 
Program  Set  II  (Page  1  of  6) 


*  TABLE  OF  CONTENTS 


• 

FILE 

NO. 

1  ON  THIS  TAPE  IS 

•TABLE  l 

OF  CONTENTS 

• 

FILE 

NO. 

2  ON  THIS  TAPE  IS 

•MATMLl 

SQUARE  MATRIX  MULTIPLICATION 

• 

FILE 

NO. 

3  ON  THIS  TAPE  IS 

•MATML3 

N  X  M  MATRIX  BY  M  X  L  MATRIX  MULTIPLICATION 

• 

FILE 

NO. 

4  on  this  tape  is 

•MATRA 

MATRIX  TRANSPOSE 

• 

FILE 

NO. 

5  ON  THIS  TAPE  IS 

•MATRA1 

SQUARE  MATRIX  TRANSPOSE 

• 

FILE 

NO. 

6  ON  THIS  TAPE  IS 

•MAXSN 

FIND  SIGNED  OR  UNSIGNED  EXTREMAL  VALUES  OF  A  VECIOR 

• 

FILE 

NO. 

7  ON  THIS  TAPE  IS 

•  MAXS.NM 

EXTREMAL  VALUES  OF  MATRIX  ELEMENTS 

• 

FILE 

NO. 

8  ON  THIS  TAPE  IS 

•MOOT 

DOT  PROOUCT  OR  REVERSED  DOT  PRODUCT  OF  VECTORS  OF  MATRICES 

• 

file 

NO. 

9  ON  THIS  TAPE  IS 

•MDCT3 

UOT  PRODUCT  OR  REVERSED  DOT  PRODUCT  OF  VECTORS  OF  MATRICES 

• 

file 

NO. 

10  ON  THIS  TAPE  IS 

•MEMUSE 

OFF-LINE  PRINT  OF  MEMORY  USAGE  -  PROGRAM  AND  COMMON 

• 

FILE 

NO. 

11  ON  THIS  TAPE  IS 

•MFACT 

FACTOR  A  SYMMETRIC  POSITIVE  DEFINITE  MATRIX 

• 

FILE 

NO. 

12  ON  THIS  TAPE  IS 

•MIFLS 

MULTI-INPUT  FILTER  BY  LEAST  SQUARES 

• 

FILE 

NO. 

13  ON  THIS  TAPE  IS 

•MIPLS 

MULTI-INPUT  PREDICTOR  BY  LEAST  SQUARES 

• 

FILE 

NO. 

14  ON  THIS  TAPE  IS 

•MISS 

MULTI-INPUT  SIDEWAROS  ITERATION 

• 

FILE 

NO. 

15  ON  THIS  TAPE  IS 

•MLISCL 

MULTIPLY  AN  ML I  VECTOR  BY  A  FORTRAN  FIXED  POINT  INTEGER 

• 

file 

NO. 

16  ON  THIS  TAPE  IS 

•MLI2A6 

CONVERT  MACHINE  LANGUAGE  INTEGER  TO  EQUIVALENT  HOLLERITH 

• 

FILE 

NO. 

17  ON  THIS  TAPE  IS 

•MONOCK 

CHECK  VECTOR  FOR  MONOTONE  INCREASING  OR  DECREASING  BEHAVIOR 

• 

FILE 

NO. 

18  ON  THIS  TAPE  IS 

•MOUT 

MATRIX  OUTPUT  IN  G  FORMAT 

• 

FILE 

NO. 

19  ON  THIS  TAPE  IS 

•MOUTAI 

OUTPUT  A  MATRIX  AS  INTEGERS  DENSELY  PACKED  OFF-LINE 

* 

FILE 

NO. 

20  ON  THIS  TAPE  IS 

•MOVE 

MOVE  A  VECTOR  TO  A  DIFFERENT  LOCATION 

• 

FILE 

NO. 

21  ON  THIS  TAPE  IS 

•MOVECS 

MOVE  AN  ARBITRARY  SET  OF  VECTORS 

• 

FILE 

NO. 

22  ON  THIS  TAPE  IS 

•MOVREV 

MOVE. REVERSE.  CHANGE  SPACING*  OR  CHANGE  SIGN  OF  A  VECTOR 

• 

FILE 

NO. 

23  ON  THIS  TAPE  IS 

•MPSECI 

MAP  A  SEQUENCE  OF  NUMBERS  INTO  AN  INTEGER  SERIES 

• 

FILE 

NO. 

24  ON  THIS  TAPE  IS 

•MRVRS 

REVERSE  VECTOR  OF  MATRICES 

• 

FILE 

NO 

25  ON  THIS  TAPE  IS 

•MSCQM 

MEAN  SQUARE  CONTINGENCY  AND  DEPENDENCY  FROM  PROBABILITY  DENSITY 

* 

file 

NO. 

26  ON  THIS  TAPE  IS 

•MULK  - 

•II 

MULTIPLY  ANY  NO.  OF  VARIABLES  BY  A  SINGLE  FLTG.  PT.  CONSTANT 

• 

FILE 

NO. 

27  ON  THIS  TAPE  IS 

•MULLER 

POLYNOMIAL  ROOT  FINDER 
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Listing  of  first  file  of  Tape  2  of 


Program  Set  II  (Page  2  of  6’ 


•MULPLY 


•MUVACD 


•MV8LCK 


•MVINAV 


•MVNSCM 


•  MVNT IN 


•MVSQAV 


•MXR ARE 


•NMZMG1 


•NOINTl 


•NRMVEC 


•  NTHA 


•NURINC 


•NXALRM 


•ONLINE 


•OUCATA 


•PACOAT 


•  PAKN 


•PLANSP 


•PLCTVS 


•PLTVS1 


•PLURNS 


•PLYSYN 


•POKCT1 


•POLYCV 


•POLYEV 


•POLYSN 


file 

FILE 


FILE 


FILE 


FILE 


FILE 

FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


FILE 


CONSTANT 


INTEGRAL 


28  ON  ThIS  TAPE  IS 

MULTIPLY  VECTOR  BY  FLOATING  OR  FIXEO  CONSTANT 

29  ON  THIS  TAPE  IS 

FAST  MOVING  SUMMATION  OF  A  FIXED  POINT  VECTOR 

30  ON  THIS  TAPE  IS 
MOVE  DATA  BLOCK 

31  ON  THIS  TAPE  IS 
MOVING  AVERAGE  OF  A  VECTOR 

32  ON  THIS  TAPE  IS 

MOVING  SUMMATION  WITH  DIVISION  BY  A  CONSTANT 

33  ON  THIS  TAPE  IS 

MOVING  TRAPEZOIDAL  INTEGRAL  OR  ABSOLUTE  VALUE  INTEGRAL 

34  ON  THIS  TAPE  IS 

MOVING  MEAN  SQUARE  AVERAGE  OF  A  VECTOR 

35  ON  THIS  TAPE  IS 

REGION  TO  MAXIMIZE  RATIO  OF  TWO  DISTRUBUTION  FUNCTIONS 

36  ON  THIS  TAPE  IS 

NORMALIZE  A  VECTOR  TO  GIVEN  MAXIMUM  VALUE 

37  ON  THIS  TAPE  IS 

NORMAL  DISTRIBUTION  AND  DIVISION  INTO  EQUALLY  LIKELY  SECTIONS 

38  ON  THIS  TAPE  IS 

NORMALIZE  AND  CHANGE  MEAN  OF  A  VECTOR 

39  ON  THIS  TAPE  IS 

RETURN  N-TH  ARGUMENT  BEYOND  THE  FIRST 

40  ON  THIS  TAPE  IS 

CREATE  ONE  VECTOR  FROM  ANOTHER  WITH  NEW  RANGE  AND  INCREMENT 

41  ON  THIS  TAPE  IS 

SCAN  VECTOR  FOR  POSSIBLE  BLOCK  OF  VALUES  ALL  ABOVE  GIVEN  LEVEL 

42  ON  THIS  TAPE  IS 

OPTIONAL  ONLINE  MONITOR  OF  BCD  TAPE  WRITING 

43  ON  THIS  TAPE  IS 

FAST  AND  CONVENIENT  DATA  STORAGE  ON  TAPE 

44  ON  THIS  TAPE  IS 

READ  EVERY  N-TH  WORD  FROM  BINARY  TAPE 

45  ON  THIS  TAPE  IS 

jCALE  AND  FIX  OATA  VECTOR,  PACK  N  DATA  POINTS  PER  REGISTER 

46  ON  THIS  TAPE  IS 

FAST  TWO-DIMENSIONAL  SPATIAL  SPECTRUM 

47  ON  THIS  TAPE  IS 

PRI NTER-PLOT  OF  ARBITRARY  SET  OF  VECTORS 

48  ON  THIS  TAPE  IS 

PRINTER  PLOT  OF  A  SET  OF  EQUAL  LENGTH  VECTORS 

49  ON  THIS  TAPE  IS 
PLURALIZE  THE  NEXT  SUBROUTINE 

50  ON  THIS  TAPE  IS 

POLYNOMIAL  SYNTHESIZED  FROM  ITS  REAL  AND  COMPLEX  ROOTS 

51  ON  THIS  TAPE  IS 

EVALUATION  OF  INTEGER  SEQUENCE  IN  GROUPS  OF  FIVE  AS  POKER  HANDS 

52  ON  THIS  TAPE  IS 

PERFORM  LONG  DIVISION  OF  TWO  POLYNOMIALS 

53  ON  TH^S  TAPE  IS 

CVALUATE  A  POLYNOMIAL  WITH  REAL  COEFFICIENTS  FOR  REAL  ARGUMENT 

54  ON  THIS  TAPE  IS 

POLYNOMIAL  SYNTHESIS  FROM  REAL  AND  COMPLEX  ROOTS 


TWO  POLYNOMIALS 


WITH  REAL  COEFFICIENTS  FOR  REAL  ARGUMENT 
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Listing  of  first  Tile  of  Tape  2  of 
Program  Set  II  (Page  3  of  6) 


• 

file 

•POWER 

• 

file 

•PRBFIT 

• 

FILE 

•PR0B2 

• 

FILE 

•PROCCR 

• 

FILE 

•PSQRT 

• 

FILE 

•PWMLIV 

• 

FILE 

•QACORR 

• 

file 

•QCNVLV 

• 

FILE 

•QFURRY 

• 

FILE 

•QIFURY 

• 

FILE 

•QINTR1 

m 

FILE 

•QUFIT1 

• 

FILE 

•QXCORR 

• 

FILE 

•QXC0R1 

• 

FILE 

•RDATA 

• 

file 

•REFLEC 

• 

FILE 

•REMAV 

• 

file 

•REREAO 

• 

FILE 

•REVER 

• 

FILE 

•REVERS 

• 

FILE 

•RLSPR 

• 

file 

•RLSPR2 

• 

file 

•RLSSR 

• 

file 

•RMSOEV 

• 

FILE 

•  RNO 

• 

FILE 

•RNDV 

• 

FILE 

•R0AR2 


NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 

NO. 


55  ON  THIS  TAPE  IS 

RAISE  VECTOR  TO  POWER  OR  SUM  POWER  OF  DEVIATIONS  FROM  BASE 

56  ON  THIS  TAPE  IS 

GENERATE  PROBABILITY  DISTRIBUTION  WITH  SPECIFIED  MOMENTS 

57  ON  THIS  TAPE  IS 

SECOND  PROBABILITY  DENSITY  OF  INTEGER  SERIES  AT  GIVEN  LAG 
5B  ON  THIS  TAPE  IS 

FAST  CORRELATIONS  FOR  LONG  SERIES  OF  FIXED  POINT  INTEGERS 

59  ON  THIS  TAPE  IS 

FINO  THE  POWER  SERIES  SQUARE  ROOT  OF  A  POLYNOMIAL 

60  ON  THIS  TAPE  IS 

PRINT  OR  WRITE  OUTPUT  TAPE  A  MACHINE  LANGUAGE  INTEGER  VECTOR 

61  ON  THIS  TAPE  IS 

FAST  AUTOCORRELATIONS  FOR  LONG*  LIMITED  ACCURACY  SERIES 

62  ON  THIS  TAPE  IS 

FAST  CONVOLUTIONS  FOR  LONG,  LIMITED  ACCURACY  SERIES 

63  ON  THIS  TAPE  IS 

FAST  FOURIER  TRANSFORM  OF  TRANSIENT  WITH  ARBITRARY  TIME  ORIGIN 

64  ON  THIS  TAPE  IS 

OUICK  INVERSE  FOURIER  TRANSFORM  WITH  ARBITRARY  TIME  ORIGIN 

65  ON  THIS  TAPE  IS 

QUADRATIC  INTERPOLATION  IN  A  TABLE 

66  ON  THIS  TAPE  IS 

FIND  QUADRATIC  WHICH  EXACTLY  FITS  3  EQUALLY  SPACED  POINTS 

67  ON  THIS  TAPE  IS 

FAST  CROSS-CORRELATIONS  FOR  LONG,  LIMITED  ACCURACY  SERIES 
6B  ON  THIS  TAPE  IS 

OUICK  CROSSCORRELATION  OF  ML  I  TRANSIENTS 

69  ON  THIS  TAPE  IS 

READ  DATA  IN  GENERALIZED  FORMAT 

70  ON  THIS  TAPE  IS 

REFLECT  A  FIXED  OR  FLOATING  VECTOR  THROUGH  A  CONSTANT 

71  ON  THIS  TAPE  IS 

REMOVE  THE  MEAN  FROM  A  FLOATING  VECTOR 

72  ON  THIS  TAPE  IS 

REREAO  DATA  RECORD  AND  ENO  FILE  MONITOR 

73  ON  THIS  TAPE  IS 

REVERSE  A  VECTOR  ELSEWHERE  OR  IN  PLACE 

74  UN  THIS  TAPE  IS 

FAST  REVERSE  STORAGE  OROER  OF  A  VECTOR 

75  ON  THIS  TAPE  IS 

REALIZABLE  LEAST  SQUARES  PREDICTOR  BY  RECURSION,  l-OIMENSION 

76  ON  THIS  TAPE  IS 

REALIZABLE  LEAST  SQUARES  PREOICTOR  BY  RECURSION,  2-OIMENSIONS 

77  ON  THIS  TAPE  IS 

REALIZABLE  LEAST  SQUARES  SHAPER  BY  RECURSION 

78  ON  THIS  TAPE  IS 

K.M.S.  DEVIATION  FROM  GIVEN  BASE  OR  FROM  TRUE  AVERAGE 

79  ON  THIS  TAPE  IS 

ROUND  FLTG.  PT.  NO.  UP,  OOWN,  OR  TO  NEAREST  FLTG.  PT.  INTEGER 


80  ON  THIS  TAPE 
ROUND,  ROUND  UP, 

81  ON  THIS  TAPE 


IS 

OR  ROUND  DOWN  A  FLOATING  VECTOR 
IS 


ROTATE  CENTRO-SYMMETRIC  0- 


TI SYMMETRIC  2-DIMENSIONAL  ARRAY 
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Listing  of  first  file  of  Tape  2  of 
Program  Set  II  (Page  4  of  6) 


• 

•R0TAT1 

file 

NO 

• 

•RRLFPT 

file 

NO, 

• 

•  RSKIP 

FILE 

NO, 

• 

•SAKE 

FILE 

NO 

• 

•SCPSCt 

FILE 

NO 

• 

•SEARCH 

FILE 

NO 

• 

•SEQSAC 

FILE 

NO 

• 

FILE 

NO 

•SETINO 

• 

•SETK 

FILE 

NO 

• 

FILE 

NO 

•SETK  -II 

• 

•SETKP 

file 

NO 

• 

FILE 

NO 

•SETKS  -II 

• 

•SETKV 

FILE 

NO 

• 

•SETKVS 

FILE 

NO 

• 

•SETL1N 

FILE 

NO 

• 

•SETLNS 

FILE 

NO 

• 

•SEVRAL 

FILE 

NO 

• 

•SHFTRi 

FILE 

NO 

• 

•SHFTR2 

FILE 

NO 

• 

•SHUFFL 

FILE 

NO 

* 

•  SIFT 

FILE 

NO 

• 

•SIMEC 

FILE 

NO 

• 

•SIZELP 

file 

NO 

• 

•SMPSCN 

FILE 

NO 

• 

•SPCOR? 

FILE 

NO 

* 

•SPLIT 

FILE 

NO 

• 

•SQRDFR 

FILE 

NO 

82  ON  THIS  TAPE  IS 

ROTATE  A  VECTOR  UPWARDS  OR  DOWNWARDS  AN  ARBITRARY  AMOUNT 

83  ON  THIS  TAPJ  IS 

REPLACE  THE  FORMAT  OF  A  SUCCEEDING  INPUT  OR  OUTPUT  STATEMENT 

84  ON  THIS  TAPE  IS 

SKIP  FORWARD  OR  BACKWARD  OVER  RECORDS  ON  TAPE 

85  ON  THIS  TAPE  IS 

ENABLE  MIXED  EXPRESSIONS  IN  FORTRAN 

86  ON  THIS  TAPE  IS 

SC*LE  VECTOR  TO  INTEGERS  FOR  SCOPE,  CLIPPING  EXCESSIVE  VALUFS 
8f  ON  THIS  TAPE  IS 
SEARCH  A  VECTOR  FOR  A  VALUE 

88  ON  THIS  TAPE  IS 

FAST  FUNCTIONS  FOR  SEQUENTIAI  SINES  AND  COSINES 

89  ON  THIS  TAPE  IS 

INITIALIZE  FOR  AODING  TO  AN  INDATA-OUDATA  TAPE 

90  ON  THIS  TAPE  IS 

SET  VARIABLES  OR  VECTORS  TO  GIVEN  VALUES 

91  ON  THIS  TAPE  IS 

SET  ANY  NO.  OF  VARIABLES  EQUAL  TO  A  SINGLE  VALUE  (FXD  OR  FLTG) 

92  ON  THIS  TAPE  IS 

PLURALIZEO  FORMS  OF  SUBROUTINES  SETK  AND  SETVEC 

93  ON  THIS  TAPE  IS 

SET  ANY  NO.  OF  VARIABLES  EQUAL  TO  SEPARATE  VALUES  (FXD  OR  FLTG) 

94  ON  THIS  TAPE  IS 

SET  ALL  ELEMENTS  OF  VECTOR  EQUAL  TO  A  CONSTANT  ( A^Y  MODE) 

95  ON  THIS  TAPE  IS 

SET  ANY  NO.  OF  VECTORS  EQUAL  TO  SEPARATE  VALUES  (FXD  OR  FLTG) 

96  ON  THIS  TAPE  IS 

SET  FXO  OR  FLTG  VECTOR  EQUAL  TO  A  LINEAR  SEGMENT 

97  ON  TH!S  TAPE  IS 

SET  LINEAR  VECTORS,  FIXED  AND/OR  FLOATING 

98  ON  THIS  TAPE  IS 

OPERATE  SEVERAL  SUBROUTINES  OR  ONE  SUBROUTINE  REPEATEDLY 

99  ON  THIS  TAPF  IS 

SHIFT  VECTOR  ELEMENTS  ARITHMETICALLY  LEFT  OR  RIGHT 

100  ON  THIS  TAPE  IS 

SHIFT  VECTOR  ELEMENTS  LP'-  ALLY  LEFT  OR  RIGHT 

101  ON  THIS  TAPE  IS 

SHUFFLE  A  LIST  OF  INTEGERS  FROM  1  TO  N 

1 02  ON  THIS  TAPE  IS 

FORM  A  VECTOR  BY  SIFTING  ANOTHER  AT  EVEN  INCREMENTS 

103  ON  THIS  TAPE  IS 

SOLUTION  OF  SIMULTANEOUS  EQUATIONS  AND  DETERMINANT  EVALUATION 

104  ON  THIS  TAPE  IS 

FAST  MAKE  INDEX  (BY  INCREASING  SIZE)  OF  ELEMENTS  IN  A  VECTOR 
1D5  ON  THIS  TAPE  IS 

UNSCALE  OR  SCALE  VECTOR  FOR  SIMPSON  INTEGRAL  AND/CR  INTEGRATE 

106  ON  THIS  TAPE  IS 

SPATIAL  CROSSCORRELATION  OF  2-DIMENSIONAL  SPATIAL  ARRAYS 

107  ON  THIS  TAPE  IS 

SPLIT  A  VECTOR  INTO  ITS  EVEN  AND  ODD  PARTS  (OR  INVERSE) 

108  ON  THIS  TAPE  IS 

SUM  SQUARE  DIF.  OF  FLTG  VECTOR  FROM  ANOTHER  OR  FROM  A  CONSTANT 
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•  FILE  NO.  109  ON  THIS  TAPE  IS 

•SQRMl I  FAST  SQUARE  LLEMENTS  OF  A  MACHINE  LANGUAGE  INTEGER  VECTOR 

•  FILE  NO.  110  ON  THIS  TAPE  IS 

•SQROCT  SQUARE  ROOT  CF  A  FLOATING  VECTOR 

•  FILE  NO.  Ill  ON  THIS  TAPE  S 

•SQRSLM  SUM  THE  SQUAREO  ELEMENTS  OF  A  FLTG  OR  FXD  VECTOR 

•  FILE  NO.  112  ON  THIS  TAPE  IS 

•SQUARE  SQUARE  ELEMENTS  OF  FXO  OR  FLTG  VECTOR 

•  FILE  NO.  113  ON  THIS  TAPE  IS 

•SRCHl  SEARCH  VECTOR  FG«  NUMBER,  STARTING  FROM  FIRST  OR  LAST  TERM 

•  FILE  NO.  114  ON  THIS  TAPE  IS 

•STZ  FAST  SET  VECTOR  TO  ZERO 

•  FILE  NO.  115  ON  THIS  TAPE  IS 

•STZS  SET  A  LIST  OF  VECTORS  TO  ZERO 

•  FILE  NO.  116  ON  THIS  TAPE  IS 

•SUM  SUM  ELEMENTS  OF  FLOATING  OR  FIXED  VECTOR 

•  FILE  NO.  117  ON  THIS  TAPE  IS 

•SUMOFR  SUM  DIFFERENCE  OF  VECTOR  FROM  ANOTHER  OR  FROM  A  CONSTANT 

•  FILE  NO.  11B  ON  THIS  TAPE  IS 

•SWITCH  TEST  THE  CONDITION  OF  ANY  SENSE  SWITCH 

•  FILE  NO.  119  ON  THIS  TAPE  IS 

•TAMVL  T R1 ANGULAR  AVERAGING,  MOVING  LEFT  Cft  RIGHT  ENO 

•  FILE  NO.  120  ON  THIS  TAPE  IS 

•TIMA2B  (70941  REAL  TIME,  TO  SPECIFIED  ACCURACY,  OF  GIVEN  PROGRAM  RANGE 

•  FILE  NO.  121  ON  THIS  TAPE  IS 

•TIMSLB  FIND  OPERATION  TIME  OF  NEXT  SUBROUTINE  TO  GIVEN  ACCURACY 

•  FILE  NO.  122  ON  THIS  TAPE  IS 

•TINGL  DEFINITE  TRAPEZOIDAL  INTEGRAL  OF  FUNCTION  OR  ITS  MAGNITUDE 

•  FILE  NO.  123  ON  THIS  TAPE  IS 

•TRMINO  TERMINATE  AN  INOATA-OUDATA  TAPE 

•  FILE  NO.  124  ON  THIS  TAPE  IS 

•UNPAKN  UNPACK  ANO  RESCALE  A  PACKED  DATA  VECTOR 

•  FILE  NJ.  125  ON  1  HI S  TAPE  IS 

•VARARG  ENABLE  FORTRAN  VARIABLE  LENGTH  CALLING  SEQUENCES 

•  FILE  NO.  126  ON  THIS  TAPE  IS 

•VDOTV  DOT  PRODUCT  OF  TWO  VECTORS  WITH  DIVISION  BY  CONSTANT 

•  FILE  NO.  127  ON  THIS  TAPE  IS 

•VDVBYV  DIVIOE  ELEMENTS  OF  ONE  VECTOR  BY  THOSE  OF  ANOTHER 

•  FILE  NO.  128  ON  THIS  TAPE  IS 

•VECOLT  OFFLINE  VECTOR  OUTPUT  WITH  NORMAL  OR  LITERAL  FORMAT 

•  FILE  NO.  129  ON  THIS  TAPE  IS 

•VOUT  OUTPUT  NAMED  VECTOR  BY  NORMAL  OR  LITERAL  FORMAT  WITH  SPACING 

•  FILE  NO.  130  ON  THIS  TAPE  IS 

•VPLUSV  ADO  OR  SUBTRACT  TWO  FLOATING  OR  FIXED  VECTORS 

•  FILE  NO.  131  ON  THIS  TAPE  IS 

•VRSOLT  OUTPUT  VARIABLES  BY  NORMAL  OR  LITERAL  FORMAT 

•  FILE  NO.  132  ON  THIS  TAPE  IS 

•VSOUT  OUTPUT  NAMED  VECTORS  BY  NORMAL  OR  LITERAL  FORMATS  WITH  SPACING 

•  FILE  NO.  133  ON  THIS  TAPE  IS 

•VTIMSV  MULTIPLY  ELEMENTS  OF  TWO  VECTORS  FIXED  OR  FLOATING 

•  FILE  NO.  134  ON  THIS  TAPE  IS 

•WAC  WIENER  AUTOCORRELATION 

•  FILE  NO.  135  ON  THIS  TAPE  IS 

•HHICF  CHOOSE  BETWEEN  TWO  VARIABLES  BY  A  THIRD  ONE  BEING  ZERO 
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Listing  of  first  file  of  Tape  2  of 
Program  Set  II  (Page  6  of  6) 


*  FILE  NO. 

•WLLSFP 

*  FILE  NO. 

*  WRTO/ST 

*  FILE  NO. 

•XACTEQ 

*  FILE  NO. 

•XAVRGE 

*  FILE  NO. 

•XOIV 

*  FILE  NO. 

•XOVICE 

*  FILE  NO. 

*XF IXM 

*  FILE  NO. 

•XLCORN 

*  FILE  NO. 

•XLIMIT 

*  FILE  NO. 

•XLCCV 

*  FILE  NO. 

•xonzE 

*  FILE  NO. 

•XKEMAV 

*  FILE  NO. 

•XSPECT 

*  FILE  NO. 

•XSCDFR 

*  FILE  NO. 

•XSQRLT 

*  FILE  NO. 

•xvcvev 

*  FILE  NO. 

•ZEFBCD 

*  FILE  NO. 

*  ENC  TAPE  CARO  IN 


SQUARE  ERROR  FILTER  OR  PREDICTOR 


136  ON  THIS  TAPE  IS 
WIENER-LEVINSON  LEAST 

137  ON  THIS  TAPE  IS 
WRITE  BINARY  DATA  ON  TAPE 

138  ON  THIS  TAPE  IS 

SIGN  OF  DIFFERENCE  OF  2  VARIABLES  OR  0  IF  SAME  INCLUDING  SIG. 

139  ON  THIS  TAPE  IS 

FINO  AVERAGE  OF  FIXED  PT  VECTOR 

140  ON  THIS  TAPE  IS 
01  VIDE  WITH  TRUNCATION  OR  ROUND  I NG 
THIS  TAPE  IS 

A  FXD  VECTOR  BY  A  CONSTANT 
THIS  TAPE  IS 

TOUNO  FLOATING  PT.  NUMBER  TO 
TAPE  IS 

OF  COMMON  STORAGE 
TAPE  IS 

FALLS  INSIDE  TWO  LIMITING  VALUES 
IS 

MACHINE  ADDRESSES  OF  VARIABLES 
IS 

FOR  TRAN- 1  I 


FXD  PT 

141  ON 
DIVIDE 

142  ON 
TRUNCATE  OR 

143  ON  THIS 
FINO  LENGTH 

144  ON  THIS 
FIND  IF  ARGUMENT 

145  ON  THIS  TAPE 
CREATE  VECTOR  OF 

146  ON  THIS  TAPE 
DETERMINE  WHETHER 


TO  FORTRAN- 1 1  INTEGER 


MACHINE  INTEGER 


IN  A  LIST 


INTEGER  IS  EVEN  OR  ODD 


OF  CROSS-CORRFLAT ION  FUNCTIONS 


147  ON  THIS  TAPE  IS 
REMOVE  THE  MEAN  FROM  A  FIXED  VECTOR 

148  ON  THIS  TAPE  IS 
PAST  COSINE,  SINE  TRANSFORMS 

149  ON  THIS  TAPE  IS 

SUM  SQUARE  DIF.  OF  FXD.  VECTOR  FROM  ANOTHER  OR  FROM  A  CONSTANT 

150  ON  THIS  TAPE  IS 

SQUARE  ROOT  OF  A  FIXEO  VECTOR  WITH  ROUNDING 

151  ON  THIS  TAPE  IS 

DIVIDE  ELEMENTS  OF  TWO  FIXED  VECTORS  WITH  OR  WITHOUT  ROUNDING 

152  ON  THIS  TAPE  IS 

TEST  IF  NEXT  TAPE  RECORD  IS  END  OF  FILE 

153  ON  THIS  TAPE  IS 
FORM AT I 1H* , 6X, SHE NO  TAPE) 


AND  REPOSITION  TAPE 
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3.  Program  Statist lea 

All  of  the  programs  of  Set  II  are  subroutines 
or  functions,  and  the  name  of  each  program  coincides  with 
the  name  of  the  entry  point  to  the  subroutine  or  function. 
In  the  case  of  multiple-entry  routines  the  name  of  the 
program  coincides  with  that  of  the  first  entry  card  in  the 
deck,  and  is  called  the  "principal  entry".  The  total  count 
of  principal  and  secondary  entries  is  395* 


The  program  statistics  tabulation  which  follows 
provides  an  alphabetical  listing  of  all  entries,  with  their 
secondary  entries,  transfer  vectors,  storage  requirements, 
acceptance  dates  of  symbolic  deck,  symbolic  deck  card 
counts,  binary  card  counts,  authors,  and  language .  The 
symbol  "M"  is  used  for  machine  language  (i.e.  PAP),  and 
"F"  for  FORTRAN.  Authors  are  coded  by  initials  as  follows. 


AMN  Arcadio  M.  Niell 

CP  Cheh  Pan 

EAR  Enders  A.  Robinson 

IH  Ira  Hanson 

JC  Jacqueline  Clark 

JFC  Jon  F.  Claerbout 

JNO  James  N.  Galbraith,  Jr. 

JTO  J.  T.  Olsztyn 

JTP  Joseph  T.  Procito,  Jr. 

MIT  MIT  Lincoln  Lab  or  Computation  Center 

Staff 

RAW  Ralph  A.  Wiggins 

RJG  Roy  J.  Greenfield 

SMS  Stephen  M.  Simpson,  Jr. 
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•  ARCTAN  TO  CMPARP  • 
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•*•••••••***•••**«•*••••  PROGRAM  STATISTICS 
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• 

A 

• 

XSTEPC 

• 

i  * 

DELTA)  . 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XSTEPL 

• 

(SEE 

• 

DELTA)  . 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XSTEPR 

• 

(  iv-C 

• 

DELTA)  . 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XSTLIN 

• 

(SEE 

• 

SETLIN). 

• 

• 

• 

• 

• 

• 

• 

• 

• 

* 

i r 

• 

• 

• 

• 

• 

XSUBK 

(SEE 

AGGK )  . 

• 

• 

• 

• 

• 

XSUBKS 

,s« 

• 

ADD* )  . 

• 

• 

C 

• 

• 

• 

• 

• 

• 

• 

XSUM 

(SEE 

SUM) 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XVORBV 

(SEE 

• 

XVOVBV). 

• 

• 

• 

• 

% 

• 

• 

* 

• 

XVOVBV 

• 

• 

• 

• 

34 

• 

9/29/64 

• 

• 

109 

• 

• 

3 

• 

• 

SMS 

• 

• 

M 

XVORBV  . 

XOIV 

• 

• 

• 

• 

• 

• 

XOIVR  . 

• 

• 

• 

• 

• 

XVMNSV 

(SEE 

• 

VPLUSV ) . 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XVPLSV 

• 

(SEE 

• 

VPLUSV) . 

• 

• 

• 

• 

♦ 

• 

• 

• 

• 

• 

XVTMSV 

• 

(SEE 

• 

VTIMSV). 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

XWHICH 

• 

(SEE 

• 

WHICH)  . 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

ZEFBCO 

• 

• 

• 

• 

54 

• 

• 

9/  8/64 

• 

• 

129 

• 

• 

4 

• 

• 

JNG 

• 

• 

M 

ZEFBIN  . 

(IOS)  . 

• 

- 

• 

• 

• 

• 

(ROS)  . 

• 

• 

• 

• 

• 

• 

(RCHI  . 

• 

• 

• 

• 

• 

• 

(TCO)  . 

• 

• 

• 

• 

• 

• 

STEF)  . 

* 

• 

• 

• 

• 

• 

( TP.C )  . 

• 

• 

9 

• 

> 

(BSRI  . 

• 

• 

• 

• 

• 

ZEFBIN 

• 

(SEE 

• 

• 

ZEFBCO ) • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

ZEFBIN  • 


•*0 


4.  Conventions  Used  In  Program  Writeups 

The  general  format  of  preparation  of  symbolic 
decks  we  have  adhered  to  is  illustrated  by  the  sample  list¬ 
ings  shown  on  the  next  few  pages  for  the  two  very  short 
routines  CONVLV  and  RND  fFile  28  of  Tape  1  and  Pile  79  of 
Tape  2).  In  all  cases  the  general  sequence  is  1)  Control 
Cards ,  2)  Subroutine  or  Entry  cards,  3)  Comment  cards 
giving  Abstract  (including  language,  equipment,  length, 
speed,  and  author),  4)  Comment  cards  giving  Usage  (Including 
FORTRAN  usage,  transfer  vector,  input-output  descriptions, 
end  examples),  and  5)  Program  proper.  All  cards  are 
serialized  after  the  first  one,  in  columns  76-79.  The 
following  observations  should  assist  the  interpretation  of 
our  comment  cards. 

1.  All  programs  are  designed  to  operate  under 
the  FORTRAN-II  system. 

2.  In  general  we  adhere  to  FORTRAN  conventions 
in  naming  fixed,  floating  point,  octal,  and 
hollerith  variables  regardless  of  whether  the 
program  is  FAP  cr  FORTRAN.  This  convention 
should  always  be  assumed  for  subroutine  argu¬ 
ments  unless  otherwise  noted. 

3.  The  term  "FORTRAN  INTEGER*'  or  FORTRAN-II  INTEGER** 
or  sometimes  Just  "INTEGER"  is  used  to  refer 

to  a  fixed  point  integer  in  the  decrement 
(binary  point  between  bits  17  and  18, 


41 


ooononooooo^onoooononnonoonnnononnnorinnoonnnono 


Sainp.Te  program  listings 


•  CONVLV  (SUBROUTINE!  4/29/64  LAST  CARO  IN  OECK  IS  NO.  0098 

•  LABEL  0001 

CCONVLV  0002 

SUBROUTINE  CON VL V( L X » XX »LY, YY , CC )  0003 

0004 

- ABSTRACT -  0005 

0006 

TITLE  -  CONVLV  0007 

COMPLETE  CONVOLUTION  OF  TWO  TRANSIENTS  0008 

0009 

CONVLV  CONVOLVES  TWO  TRANSIENTS.  X C 1 1  1-0 , 1 , . . .  ,LX- 1  0010 

ANO  Y(II  I *0. 1 • LY-I  .  TO  PRODUCE  THE  COMPLETE  0011 

CONVOLUTION  FUNCTION  0012 

0013 

LX-1  0014 

C(I)  *  SUM  (  X ( J  )  • Y ( I~ J  )  )  0C15 

J-0  0016 

0017 

FOR  I  *  0.1.... .LX+LY-2  0018 

WHERE  0019 

LX  ANO  LY  ARE  INPUT  PARAMETERS  0020 

Y(KI  IS  ASSUMED  «  0.0  FOR  K  OUTSIDE  OF  0021 

THE  RANGE  0  TO  LY-l  0022 

NOTC  THAT  THE  CONVOLUTION  IS  INDEPENDENT  OF  THE  ORDER  0023 

OF  THE  INPUTS  X  ANO  Y.  0024 

0025 

TECHNIQUE  USEO  IS  AN  ALGORITHM  BASED  ON  ANALOGY  TO  0026 

MULTIPLICATION  OF  POLYNOMIALS  0027 

0028 

LANGUAGE  -  FORTRAN  II  SUBROUTINE  0029 

EQUIPMENT  -  709  OR  7090  (MAIN  FRAME  ONLY!  0030 

STORAGE  -  96  REGISTERS  0031 

SPEED  -  ABOUT  .49  •  (LX»LYI  MILLISEC  ON  THE  709  0032 

ABOUT  .082  •  (LX»LYI  MILLISEC  ON  THE  7090  0033 

AUTHOR  -  J.  CLAERBOUT  0034 

0035 

- - USAGE -  0036 

0037 

TRANSFER  VECTOR  CONTAINS  ROUITNES  -  (NJNE!  0038 

AND  FORTRAN  SYSTEM  ROUTINES  -  (NONE!  0039 

0040 

FORTRAN  USAGE  0041 

CAIL  CONVLV ( LX . XX  LY.YY.CC!  0042 

0043 

INPUTS  004* 

0045 

LX  IS  NO.  OF  TERMS  IN  X  VECTOR  0046 

MUST  EXCEEO  ZERO  (PROGRAM  EXITS  IF  ZERO  OP  LESS!  0047 

0048 

XXIII  I* 1 .....  LX  CONTAINS  X ( 01 , . . . , X( LX- 1 1  RESPECTIVELY  0049 

0050 
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UY  IS  NO.  OF  TERMS  IN  Y  VECTOR 

MUST  EXCEED  ZERO  (PROGRAM  EXITS  IF  ZERO  OR  LESS) 

VY,l>  1*1.. .LY  CONTAINS  Y(O)#..., Y(LY-i)  RESPECTIVELY 

EQUIVALENCE  (XX, YY  IS  PERMITTED 

OUTPUTS 

CC(I)  I*l,...,LX«LY-l  CONTAINS  C ( 0 ) , . . . ,C ( LX*L Y-2 )  RESPECTIVELY 

WHERE  CIII  IS  GIVEN  IN  ABSTRACT 

EXAMPLES 

1.  SHOWING  REVERSIBILITY  OF  X  AND  Y 
INPUTS  -  LX  *  3  XXII. ..3)  *  l.,2.,3. 

LV  »  2  YY ( 1 ... 2 >  *  10. ,1. 

USAGE  -  CALL  CCNVL V( LX , XX ,L Y, YY ,CC1 » 

CALL  CONVLVILY, YY,LX,XX,CC2> 

CUTPUTS  -  CCII1...4)  *  CC2I1...4)  »  10. , 21. , 32. , 3. 

2.  ILLEGAL  INPUf  CASES  (NO  OUTPUT) 

INPUTS  -  SAME  AS  EXAMPLE  1.  EXCEPT  START  WITH  OUTPUT  VECTORS 

CLEANED,  I.E.  CC1I1...4T  *  CC2I1...,  *  0.,0.,0.,0. 

USAGE  -  CALL  C0NVLV(-2,XX,LVtYY,CCl) 

CALL  CONVLV(LX,XX ,0,YY,CC2) 

CUTPUTS  *  CC 1(1. ..4)  *  0.,0.,0.,0.  (ILLEGAL  LX) 

CC2I1...4)  *  0.t0.,0.,0.  (ILLEGAL  LY) 

PROGRAM  FOLLOWS  BELOW 

DU'.PY  DIMENSION  STATEMENTS 

DIMENSION  XX( 2) ,YY(2),CC(2) 

C  CHECK  LEGALITIES 

IF  (LX)  9999,9999,10 
10  IF  (LY)  9999,9999,20 
C  CLEAR  OUTPUT  VECTOR 
20  LC»LX*LY-l 
DO  30  1*1, LC 

30  CC(I)*0.0 
C  CONVOLVE 

00  40  1*1, LX 

DO  40  J*1,UY 
K*  I 

40  CC(K-1)*CC(K-1 )»XX( I ) * Y Y ( J ) 

C  EXIT 
9999  RETURN 
ENO 


0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0004 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 
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Sample  program  listings 


•  RNO  (FUNCTION) 

•  FAP 
•RNC 

COUNT  60 

LBL  RNO 

ENTRY  RNO  F(Y) 

ENTRY  RNOUP  F(YI 

ENTRY  RNOON  F I  V  I 

• 

•  - -ABSTRACT- 


- USAGE - 

TRANSFER  VECTOR  CONTAINS  ROUTINES  - 
AND  FORTRAN  SYSTEM  ROUTINES  - 

FORTRAN  USAGE 

XI  «  RNOF(Y) 

X2  «  RNOUPF(Y) 

X3  *  RNODNF(Y) 


9/29/66  LAST  CARD  IN  DECK  IS  NO.  0078 

0001 
0002 
0003 
0006 
0005 
0006 
0007 
00C8 
0009 
0010 
0011 
0012 
0013 
0016 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0026 
0025 
0026 
0027 
0028 
0029 
0030 

NONE  0031 

NONE  0032 

0033 
0036 
0035 
0036 
0037 
0038 
0039 
0060 
0061 
0062 
0063 
0066 
0065 
0066 
0067 
0068 
0069 
0050 


INPUTS 

Y 

IS 

A 

FLOATING 

POINT 

NUMBER 

MUST 

BE  LSTHN* 

»  10.»*9 

OUTPUTS 

XI 

IS 

A 

FLOATING 

POINT 

INTEGER 

X2 

IS 

A 

FLOATING 

POINT 

INTEGER 

X3 

IS 

A 

FLOATING 

POINT 

INTEGER 

TITLE  -  RND  .  WITH  SECONDARY  ENTRY  POINTS  RNDUP,  RNDDN 

ROUNDS  FLTG.  PT.  NO..  UP,  DOWN,  OR  TO  NEAREST  FLTG.  PT.  INTEGER 

RND  ROUNDS  A  FLOATING  POINT  NUMBER  TO  THE  NEAREST  FLOATING 
POINT  INTEGER. 


RNDUP  ROUNDS  A  POSITIVE  (NEGATIVE)  FLOATING  POINT  NUMBER 
TO  THE  NEXT  HIGHER  (LOWER)  FLOATING  POINT  INTEGER. 

RNDDN  ROUNDS  A  POSITIVE  (NEGATIVE)  FLOATING  POINT  NUMBER 
TO  THE  NEXT  LOWER  (HIGHER)  FLOATING  POINT  INTEGER. 

LANGUAGE  -  FAP,  FGRTRAN  II  FUNCTION 

ECUIPMENT  -  709  OR  7090  (MAIN  FRAME  ONLY) 

STORAGE  -  15  REGISTERS 

SPEED  -  26  MACHINE  CYCLES  FOR  RNO 

AUTHOR  -  R.A.  WIGGINS,  15/9/62 
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Sample  program  llstlnKS 


EXAMPLES 


1.  INPUT 

Y  «  1 04 . 2 

CUTPUTS 

- 

Xl=I04.  X2«105.  X3*104. 

2.  INPUT 

- 

Y-.5 

CUTPUTS 

- 

X 1  =  I.  X2*i.  X3»0. 

3.  INPUT 

- 

Y--49.7 

CUTPUTS 

- 

Xl=-50.  X2*-50.  X3>-49. 

4.  INPUT 

- 

Y-I015. 

CUTPUTS 

- 

XI  *  10 15 .  X2*1015.  X3« 1015. 

SCI 

1*  RND 

RNCUP  INI 

A 

PAD 

•0177777777777 

PAD 

••5 

RNCON  UFA 

>0233000000000 

FAD 

>0233000000000 

TRA 

1.4 

A  FSB 

>0177777777777 

FSb 

>•5 

TRA 

RNODN 

RND  TNI 

A41 

TRA 

END 

RNDUP*2 

0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0'  62 
63 
.064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
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maximum  magnitude  ■  2*^-1), 

4.  The  term  * MACHINE  LANGUAGE  INTEGER"  or  "MACHINE 
INTEGER",  or  sometimes  "MLI"  is  used  to  refer  to 
fixed  point  integers  in  the  address  (binary 

■3C 

point  beyond  bit  35#  maximum  magnitude  -  2-^-1). 

5.  'Ihe  terms  "LSTHN"  and  "LSTHN-"  are  equivalent 
to  "<"  and  "<".  The  terms  " ORTHN"  and  "ORTHN»" 
are  equivalent  to  ">"  and  ">" . 

6.  The  names  of  all  our  subprogram- type  routines 
(subroutines,  functions)  are  always  the  same  as 
their  entry  point  (in  the  case  of  multiple  entry 
point  routines  the  first  entry  point  listed  is 
equated  with  the  name).  A  serial  number  "-II" 
or  "-III"  following  the  name  Indicates  that  this 
program  is  one  of  a  series,  all  of  which  have 
identical  calling  sequences  and  essentially  the 
same  functions,  but  the  user  mus-  choose  the 
appropriate  one  in  terms  of  his  requirements. 

A  "(709)"  following  the  name  indicates  that  this 
routine  can  only  be  used  on  the  709.  A  "(7090)" 
indicates  the  program  works  on  either  the  7090  or 
the  7094.  All  the  routines  without  such  speci¬ 
fication  can  be  used  on  any  of  the  three  machines. 

7.  Expressions  appearing  under  "ABSTRACT"  may  deviate 
from  FORTRAN  conventions.  The  emphasis  here  has 
been  to  produce  expressions  which  are  visually 
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close  to  those  of  ordinary  mathematics. 


d.  In  the  listings  of  required  routines  as  found  in 
the  transfer  vectors  we  list  separately  the  FOR¬ 
TRAN  system  routines  (which  can  be  ignored)  and 
non-FORTRAN- system  routines  (which  cannot  be  ig¬ 
nored)  .  All  of  the  non-FORTRAN  system  routines 
required  are  included  somewhere  in  the  program 
set.  In  this  connection  the  word  "NONE"  or 
"(NONE)"  means  "none  required"  and  does  not  refer 
to  routines  by  those  names. 

9.  It  should  be  stressed  that  the  transfer  vector  as 
listed  is  only  the  first  level  of  subprogram  re¬ 
quirements  and  the  subprograms  listed  should  be 
checked  for  further  subprogram  requirements.  The' 
table  in  Section  3  is  probably  the  most  rapid  and 
accurate  for  determining  the  complete  requirements. 

10.  In  the  usage  of  these  programs  it  should  be  as- 
summed  thau  none  of  the  subprogram  arguments  can 
be  safely  equated  (either  by  equivalence  statements 
or  repeated  use  of  the  same  name)  except  as  spec¬ 
ifically  noted. 

11.  The  numerical  examples  given  involve  some  nota¬ 
tion  conventions  which  should  be  fairly  obvious. 
Thus 

A)  "IX(1 . . .5)  -  2,4,6,8,10”  or 

"IX(1 ,2 , . . . , 5)  -  2,4,6,8,10"  stands  for 
”IX(!)  =  2",  "IX(2 )  «  4,"  etc. 
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B)  "OCT'*  stands  for  octal  data 

C)  "MLI"  is  machine  language  integer 

The  representation  of  hollerith  data  is  not  too 
satisfactory  or  consistent  as  given  here.  In 
most  cases  we  use  either 

X (I . . . )  =  6H( something) 

=  6Hsomething 

to  imply  that  the  "something"  is  a  string  of  hol¬ 
lerith  characters  stored  6  to  a  register  (i.e. 
F0RMAT(A6)).  However,  in  some  cases  the  "some¬ 
thing"  may  be  split  into  groups  of  six  charac¬ 
ters  separated  by  commas  to  conform  to  a  rep¬ 
resentation  such  as  A)  above.  The  reader  will 
have  to  use  his  Judgment  from  the  context. 

12.  In  the  examples,  if  no  "USAGE"  is  given,  the  user 
is  to  assume  that,  following  the  setting  up  of  the 
"INPUTS",  a  "CALL"  statement  is  to  be  executed  in 
the  exact  literal  form  as  given  under  "FORTRAN 
USAGE" . 

j.3.  In  the  case  of  programs  with  scope  output,  blank 
comment  cards  are  inserted  at  appropriate  places 
in  the  example  outputs  so  that  photographs  of  the 
actual  outputs  can  be  pasted  there  on  the  listings. 

14.  Instructions  equivalent  to  the  linkage  director  have 
been  inserted  in  many  of  the  FAP  programs  so  that 
they  may  operate  properly  with  systems  which  do 
not  have  the  standard  error  procedure.  The  pro- 
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grams  will,  of  course,  operate  with  systems 
which  do  have  the  standard  error  procedure  op¬ 
tion  operative  but  the  error  tracing  scheme  will 
not  be  able  to  function  completely  since  index 
register  four  will  be  stored  in  the  "artificial 
linkage"  director  rather  than  in  the  one  con¬ 
structed  by  the  assembler.  In  many  cases  the 
error  procedure  may  be  made  completely  operative 
by  removing  the  PZE  0  and  BCI  1#  NAME  cards 
appearing  at  the  beginning  of  the  program. 
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The  following  steps  have  been  taken  in  the  pro¬ 
duction  of  the  master  tape  from  which  copies  will  be  made. 


1.  All  programs  to  be  included  had  special  test  pro¬ 
grams  written  which  tested,  among  other  things, 
all  examples  given  in  the  program  comment  cards. 
These  tests  were  passed  individually. 

2.  The  symbolic  decks  were  divided  into  groups, 
each  group  being  loaded  on  a  separate  tape. 

3.  Each  such  tape  was  then  serialized  and  dated  by  a 
special  program  and  then  the  serialized  tapes 
were  compiled  to  produce  sets  of  binary  decks. 

4 .  The  binary  decks  thus  compiled  were  rerun  through 
the  test  programs,  and  the  test  results  compared 
with  earlier  test  results. 

5*  The  serialized  tapes  were  merged  by  program 
to  form  the  master  tape. 

6.  The  master  tape  was  then  compiled  and  the  binaries 
from  this  compilations  compared  by  the  519  repro¬ 
ducing  punch  against  the  binary  decks  used  in 
step  4. 

VELA  UNIFORM  associates  desiring  a  copy  of  these  programs 
should  write  their  request  to 


bO 


Headquarters,  USAF/AFTAC 
VELA  Seismological  Center 
Washington  25,  D.  C.  20330 
ATTN:  Major  J,  J.  Connor 

The  letter  should  request 

“MIT  Geophysics  Program  Set  II". 

By  separate  mail  the  requester  should  also  send  two 
2400'  blank  tapes. 
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6.  KWIC  Index  to  Programs 


The  remaining  pages  are  a  KWIC  (Key  Work  in 
Context)  index  of  the  267  programs  in  the  progrrm  set 
(produced  \f  the  routine  ROKWIC).  Our  coding  in  this  index 
is  as  follows 

Column  65  P  means  FORTRAN  program 

M  means  PAP  program 


66  Blank  means  PORTRAN-type  subroutine 

or  functions 
*  means  main  program 

67-80  give  the  program  name 
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KWIC  Index 


SQUARES  PREDICTOR  BY  RECURSION*  1-DIMENSION  SREA|_IZABlE  lEAST  F  RLSPR 

^displaced  dot  product  op  2-DIMENSIONAL  ARRAYS  F  dotp 

ENTRO-SYMMETRIC  OR  ant ISVMMETRIC  2-DIMENSIONAL  ARRAY  SROTaTE  c  F  ROAR 2 

ISPATIAL  CROSSCORRELATION  OF  2-DIMENSIONAL  SPAT ' AL  ARRAYS  F  SPCOR2 

SQUARES  PREDICTOR  BY  RECURSION*  '-DIMENSIONS  SkEALlZABLE  LEAST  F  RLSPR2 

SHIGH  SPEED  24  POINT  SPECTRUM  F  FT24  -II 

$H!GH  SPEED  24  POINT  SPECTRUM  M  FT24 

SFAST  ABSOLUTE  VALUE  OF  A  VECTOR  M  ABSVAL 

SMOVING  TRAPEZOIDAL  INTEGRAL  OR  ABSOLUTE  VALUE  INTEGRAL  M  MVNTIN 

NOTH  SSUMMATION  OF  VECTOR  OVER  ABUTTING  BLOCKS  OF  CONSTANT  LE  M  BLKSUM 

MILLION  RANDOM  DIGITS  FROM  TAPE  SACCFSS  ROUTINE  FOR  RAND  CORP.  F  GETRD1 

FORMAT  SACCESS  TO  LITERAL  OR  ORDINARY  M  FNDFMT 

TIME  OF  NEXT  SUBROUTINE  TO  GIVEN  ACCURACY  SFIND  OPERATION  M  TIMSUB 

GE  SREAL  TIMF,  To  SPECIFIED  ACCURACY*  OF  GIVEN  PROGRAM  RAN  M  709TIMA2B 

TOCORRELATIONS  FOR  LONG.  LIMITED  ACCURACY  SERIES  SFAST  AU  F  OACORR 

T  CONVOLUTIONS  FOR  LONG*  LIMITED  ACCURACY  SERIFS  SFAS  F  OCNVLV 

S-CORRELATIONS  FOR  LONG.  LIMlTEO  ACCURACY  SERIFS  SFAST  CROS  F  QXCORR 

E  $  IN  I T I AL I  ZED  FOR  ADDING  TO  AN  I NDAT A-OUDATA  TAP  F  SETINO 

ST  SCREATE  VEv.fOR  OF  MACHINE  ADDRESSES  OF  VARIABLES  IN  A  LI  M  XLOCV 

SHOLLERITH  LEFT  ADJUST  OR  RIGHT  ADJUST  FUNCTION  M  HLADJ 

N  SHOLLERITH  LEFT  ADJUST  OR  RIGHT  ADJUST  FUNCTIO  M  HLADJ 

SADVANCE  FILM  FRAME  ON  SCOPE  M  7090FRAME 

SADVANCE  FILM  FRAME  ON  SCOPE  M  709FRAME 

PWARDS  OR  DOWNWARDS  AN  ARBITRARY  AMOUNT  SROTaTE  A  VECTOR  U  M  ROTAT 1 

AND  IMAGINARY.  OR  REVERSE  SAMPLITUDE  AND  PHASE  FROM  REAL  M  AM°HZ 

TF  SYMMETRICAL  FILTFR  WITH  GI VFN  AMPLITUDE  RES>ONSE  SGFNERA  F  GNFLTl 

RAY  SROTaTE  CENTRO-SYMMETRIC  OR  ANTISYMMETRIC  2-DIMENSIONAL  AR  F  ROAR2 

SARCTANGENT  FUNCTION  M  ARCTAN 

SCORE  LOCATION  WITH  INDEXABLE  ARGUMENT  M  LOC 

N  SLOCATE  ARGUMENT  WITH  RESPECT  TO  COMMO  F  I XCARG 

sreturn  n-th  argument  beyond  the  FIRST  M  ntha 

ting  VALUFS  SFIND  IF  ARGUMENT  FALLS  INSIDE  TWQ  LlMl  M  XLI^IT 

WITH  REAL  COEFFICIENTS  FOR  REAL  ARGUMENTSEVALUATE  A  POLYNOMIAL  F  POLYEV 

EVALUATE  CUBIC  FOR  EVENLY  SPACED  ARGUMENTS  SFAST  M  FASCUB 

—0  IS  LESS  than  +o  scompare  arithmetically  Two  WORDS  where  m  cmpra 

SSHIFT  VECTOR  ELEMENTS  ARITHMETICALLY  LEFT  OR  RIGHT  M  SHFTR1 

C  OR  ANTISYMMETRIC  2-DIMENSIONAL  ARRAY  SROTATE  CENTRO-SYMMET R I  F  R0AR2 

CED  DOT  PRODUCT  OF  2-0 i MENS  ION AL  ARRAYS  SDIS&LA  F  DOTP 

ELATION  OF  2-DIMENSIONAL  SPATIAL  ARRAYS  SSPATIAL  CROSSCORR  F  SPCOR 2 

R  DANIELL  SPECTRA  SMODIFY  AUTO-  OR  CROSS-CORRELATIONS  FO  V  ADANL 

OSPECTRUM  BY  COSINE  TRANSFORM  OF  AUTOCORRELATION  SAUT  M  ASPEC2 

SWIENER  AUTOCORRELATION  F  WAC 

T  COSINE  T9ANSF0RMS  OF  ONE-SIDED  AUTOCORRELATIONS  SFAS  M  ASPECT 

ITED  ACCURACY  SERIES  SFAST  AUTOCORRELATIONS  FOR  LONG.  LIM  F  QACORR 

RM  OF  AUTOCORRELATION  S AUTOSPECTRUM  BY  COSINE  TRANSFO  M  ASPEC2 

NDATA-OUDATA  TYPE  tape  SLIST  AUXILIARY  INFORMATION  FOR  AN  I  F  LISTING 

SFIND  AVERAGE  OF  FLOATING  VECTOR  M  AVRAGE 

ION  FROM  GIVEN  BASE  OR  FROM  TRUE  AVERAGE  SR.M.S.  DEVI  AT  M  RMSDEV 

SMOVING  AVERAGE  OF  A  VECTOR  F  MVINAV 

SMOVING  MEAN  SQUARE  AVERAGE  OF  A  VECTOR  F  MVSQAV 
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AVERAGE  OF  FIXED  PT  VECTOR 
AVERAGING*  MOVING  LEFT  OR  RIGH 
AXIS  INTO  EQUALLY  PROBABLE  RAN 
BACKWARD  OVER  FILES  ON  TAPE 
$BAR  GRAPH  PLOTTING  FOR  SUBROUT 
BASE  SRAISE  VECTOR  TO  POWER 
BASE  OR  FROM  TRUE  AVERAGE 
BCD  TAPE  WRITING 
BINARY  DATA  ON  TAPE 
BINARY  TAPE 
BITS  OF  A  VECTOR 
BLOCK 

BLOCK  OF  VALUFS  ALL  ABOVE  GIVE 
blocks  of  constant  length  ss 
CALL  STATEMENTS  SLCCATE 

CALLING  sequence 
calling  sequences 

CARRIAGE  N  LINES  OR  RESTORE  PA 
CENTRO-SYMMETRIC  OR  ANT  I SYMMET 
SCHANGE  ALL  sign  bits  OF  A  vect 


SFInD 

T  end  striangular 

GeS  SDIVIDE  THE  X 

SSKIP  FORWARD  OR 

INF  GRAPH 

0°  SUM  Dr'wpo  op  DEVIATIONS  FROM 

SR.v.S.  deviation  from  given 

^OPTIONAL  ONLINE  MONITOR  OF 

SWRI TE 

5 READ  EVERY  N-TH  WOPD  FROM 
SCHANGE  ALL  SIGN 
SMOVE  DATA 

N  LFVFLSSCAN  VFCTOR  FOP  POSSIBLE 
UmmaT I  ON  OF  VECTOR  OVER  ABUTTING 
AND  OPERATF  SUBROUTINES  BY  PROXY 
SGET  HOLLERITH  DATA  FROM 
5ENABLE  FORTRAN  VARIABLE  LENGTH 
GE  $SPACE 

PIC  2-DIMENSIONAL  ARRAY  SROTATE 
OR 

MOVE » REVERSE ♦  CHANGE  SPACING*  OR  CHANGE  SIGN  OF  A  VECTOR  $ 

Oc  A  VECTOR  SMOVE*REVErSE»  CHANGE  SPACING*  OR  CHANGE  SIGN 

SGENERATE  HOLLERITH  CHARACTERS 

‘■AvinG  ON-LINE  REOUEST  IF  NOT  SCHECK  IF  INTERVAL  TIMER  IS  ON 
FALL  WITHIN  GIVEN  LIMITS  SCHECK  THAT  VARIABLES  FROM  LIST 

PASING  OR  DECREASING  BFHAV IOR  SCHECK  VECTOR  FOR  MOMOTONE  INCR 

ILITY  CASE  SCOMPUTE  CHI-SOUARE  FOR  CONSTANT  PROBAB 

VALUE  SPROBABILITY  THAT  A  CHI-SQUARED  VARIATE  EXCEEDS  A 

Y  A  THIRD  ONE  BEING  ZERO  SCHOOSE  BETWEEN  TWO  VARIABLES  B 

Lc  VECTOR  To  INTEGERS  FOR  SCOPE*  CLIPPING  EXCESSIVE  VALUES  $SCA 
G  IN  SECONDS  USING  7090  INTERVAL  CLOCK  SFOR  REAL  TIME  TIMIN 

DEVALUATE  A  POLYNOMIAL  WITH  REAL  COEFFICIENTS  FOR  REAL  ARGUMENT 
BOUT  ITS  MIDPOINT  SCOLLAPSE  ODD-LENGTHED  VECTOR  A 

SMALLER  RANGE  SCOLLAPSE  ONE-SIDED  VECTOR  INTO 

teral  FORMATS  soutput  column  vectors  BY  NORMAL  OR  LI 

INTERPOLATION  SFIND  A  MATRIX 

T  integers  slabel  printer 

SLOCATE  ARGUMENT  WITH  RESPECT  TO 
NT  OF  MEMORY  USAGE  -  PROGRAM  AND 

SFIND  LENGTH  OF 
DS  WHERE  -0  IS  L^SS  THAN  +0 

A  set  OF  variables  for  equality  SCOMPARE 

TORS  FOR  IDENTITY  SFAST  COMPARE 

SCOMPLEX 

LYNOMIAL  SYNTHESIS  FROM  REAL  AND  COMPLEX 
AL  SYNTHESIZED  FROM  ITS  REAL  AND 

STEST  THE 

SDIVIDF  A  FLOATING  VFCTQR  BY  A 
VARIABLES  BY 
F  VECTOR  OVfp 


A  SINGLE  FLTG.  PT. 
ABUTTING  BLOCKS  op 


COLUMN  WITH  ARBITRARY  INDEX  BY 
COLUMNS  WITH  INCREASING  3-DIGI 
COMMON 

COMMON  SOFF-LINE  PRI 

COMMON  STORAGE 

SCOMPARE  ARITHMETICALLY  TWO  WOR 
PAIRS  OF  VARIABLES  OR 
TWO  ARBITRARY  MODE  VEC 
POLYNOMIAL  EVALUATION 
ROOTS  SPO 

COMPLEX  rR^QJ4  SPOLYNOMI 

CONDITION  OF  ANY  SENSE  SWITCH 
constant 

constant  ^MULTIPLY  any  no.  of 
CONSTANT  LENGTH  SSUMMATlON  0 


M  XAVRGE 

M  TAMVL 

F  GRUP2 

M  FSKIP 

M  hSTPLT-H 

M  POWER 

M  RMSDEV 

M  ONLINE 

M  WRTDAT 

N  PACDAT 

M  CHS  I GN 

M  MVBLOK 

F  NXALRM 

M  BLKSUM 

M  LOCATE 

F  GETHOL 

M  VARARG 

F  CARIGE 

F  ROAR2 

M  CHS  I  GN 

M  MOVREV 

M  MOVREV 

M  GNHOL2 

F  CLKON 

M  LIMITS 

M  MONOCK 

F  CHISQR 

F  K I  INTI 

M  WHICH 

M  SCPSCL 

M  7090CL0CK1 
F  POLYEV 

M  KOLAPS 

M  COLAPS 

M  CVSOUT 

M  AR3COL 

F  COLABl 

F  IXCARG 

F  MEMUSE 

M  XLCOMN 

M  CMPRA 

M  CMPARP 

M  CMPARV 

F  IPLYEV 

F  POLYSN 

F  PLYSYN 

M  SWITCH 

M  DIVIDE 

F  VULK  -II 

M  BLKSUM 
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SMODIFY  A  SET  OF  VARIABLES  BY  A  CONSTANT  OR  BY  CONSTANTS 
SCOMPUTE  CH I -SQUARE  FOR  CONSTANT  PROBABILITY  CASE 

OR  fltg  vector  SAOO  A 

$D!VIDF  A  FXD  VECTOR  BY  A 
OF  TWO  VECTORS  WITH  DIVISION  8Y  CONSTANT 
ING  SUMMATION  WITH  DIVISION  BY  A  CONSTANT 
IPLY  VECTOR  BY  FLOATING  OR  FlXf.O  CONSTANT 
XED  OR  FLOATING  VFCTOR  THROUGH  A  CONSTANT 
OF  VECT0O  FROM  ANOTHER  OR  FROM  A 
LL  ELEMENTS  OF  VFCt0R  PQUAL  TO  A 
TG  VECTOR  FROM  ANOT1  FR  OR  FROM  A 
D.  VECTOR  FROM  ANOmIcP  OR  FROM  A 


A  FXD 


CONSTANT  TO  elements  OF 
constant 

$DOT  PRODUCT 

SMOV  M 

smult  M 

SREFLECT  A  FI 
SSUM  DIFFERENCE 
(ANY  MODE)  $SET  A 

CONSTANTSSUM  SQUARE  DIF.  OF  FL  M 
CONSTANTSSUM  SQUARE  DIF.  OR  FX  M 


Constant 

constant 


m 

M 

M 


OF  VAR  I ABLFS  BY  A  CONSTANT  OR  BY  CONSTANTS  SMODIFY  A  SET  M 
M  PROBABILITY  DENSlTSMEAN  SQUARE  CONTINGENCY  AND  DEPENDENCY  FRO  F 
R  IN  DECIBELS  SCONTOUR  A  MATRIX  ON  THE  PRINTE  F 
ROW  OF  DATA  SFIND  CONTOUR  LEVELS  FOR  PLOTTING  A  F 
F-LINE  PRINTER  SCONTOUR  OF  MATRIX  SUBSET  ON  OF  F 
E  INTEGERS  OR  CONVERSELY  SSCALE.  CONVERT  FLTG.  VECTOR  TO  MACHIN  M 


TO  MLI  VECTOR 


M 


accuracy  series 
THER  -  VERSION  2 
RGUMENT 


F 

F 


♦PAST  CONVERT  FORTRAN  INTEGER  VECTOR 
ER  TO  EQUIVALENT  HOLLERITH  SCONVERT  MACHINE  LANGUAGE  INTEG  M 

scomplete  convolution  OF  two  transients  M 

SCOMPLETc  CONVOLUTION  of  two  transients 

SFAST  CONVOLUTIONS  FOR  LONG.  LIMITED 
SFAST  COPY  FILE  FROM  ONE  TAPE  TO  ANO  M 
SCORE  LOCATION  WITH  INDEXABLE  A  M 
COSINE.  SINF  TRANSFORMS  OF  CROSS-CORRELATION  FUNCTIONS  SFAST  F 
RA  SMODIFY  AUTO-  OR  CROSS-CORR'LAT IONS  FOR  DANIELL  SPECT  M 

ACCURACY  SERIES  SFAST  CROSS-CORRtLAT IONS  FOR  LONG.  LIMITED 

F  FIXED  POINT  INTEGERS  SFAST  CORRELATIONS  FOR  LONG  SERIES  0 

FROM  2  OR  4  EVEN-ODD  PARTS  SFAST  COSINE  AND/OR  SINE  TRANSFORMS 

OF  ODD-LENGTH  SERIES  SFAST  COSINE  AND/OR  SINE  TRANSFORMS 

S.  FIXED  OR  FLOATING  SGENER ATE  COSINE  OR  SINE  HALF-WAVE  TABLE  M 

ation  sautospectrum  by  cosine  transform  OF  autocorrel  M 

AUTOCORRELATIONS  SFAST  COSINE  TRANSFORMS  OF  ONE-SIDED  M 

SS-CORRELATiON  FUNCTIONS  SFAST  COSINE.  SINE  TRANSFORMS  OF  CRO  F 
NOTIONS  FOR  SEQUENTIAL  SINES  and  COSINES  SFAST  FU  M 

SERIES  IN  GIVEN  RANGESFREQUENCY  COUNT  OF  NUMBER  OF  VALUES  OF  A  M 

WITH  NEW  RANGE  AND  INCREMENT  SCREATE  ONE  VECTOR  FROM  ANOTHER  M 

SSFS  OF  VARIABLES  IN  A  LIST  SCREATE  VECTOR  OF  MACHINE  ADORE  M 

SFAST  COS  INF .  SINF  TRANSFORMS  OF  CROSS-CORRELATION  FUNCTIONS  F 
SPFCTRA  SMODIFY  AUTO-  OR  CROSS-CORRELATIONS  FOR  DANIELL  M 

IMITED  ACCURACY  SERIES  SFAST  CROSS-CORRELATIONS  FOR  LONG.  L 

vectors  OF  matrices  scrosscorrelation  OF  TRANSIENT 

BEGINNING  WITH  ANY  LAG  SCROSSCORRELATION  OF  TRANSIENTS 

BEGINNING  WJTH  ZERO  LAG  SCROSSCORRELATION  OF  TRANSIENTS 

NAL  SPATIAL  ARRAYS  SSPATIAL  CROSSCORRELATION  OF  2-DIMENSIO 

ENTS  SQUICK  CROSSCORRELATION  OF  MLI  TRANSI 

SUBROUTINE  GRAPH  SCUBIC  CURVE  SCOPE  PLOTTING  FOR  M 

SUBROUTINE  GRAPH  SCUBIC  CURVE  SCOPE  PLOTTING  FOR  M 

NTS  SFAST  EVALUATE  CUBIC  FOR  EVENLY  SPACED  ARGUME  M 


ADDK 

CHISGk 

BOOST 

XDVIDE 

VDOTV 

MVNSUM 

mulply 

reflec 

SUMDpR 

SETKV 

SQRDFR 

XSQDFR 

ADDK 

MSCON1 

CNTRDB 

CNTROW 

contur 

fxoata 

itomli 

MLI2A6 

CONVLV-I I 

CONVLV 

QCNVLV 

CPYFL2 

LOC 

XSPECT 

ADANL 

QXCORR 

PROCOR 

COSP 

COSIS1 

COSTBL 

ASPEC2 

ASPECT 

XSPECT 

SEQSAC 

FRQCT2 

NURINC 

XLOCV 

XSPECT 

ADANL 

OXCORR 

CRSVM 

CROST 

CROSS 

SPCOR2 

QXCOR1 

HSTPL T-I I  I 

HSTPLT-I II 

FASCUB 
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PFFD  EXPANSION  QP  A  VFCTOR  UNDER 
ALLY  SDACFO  or^jNTS  SFIND 

U  T  T  N  -  GRAPH  *<CUBIC 

UTINF  GRAPH  SCUBIC 

auto-  or  cross-corrfl at  ions  for 

SMOVE 
$R  EAD 
SWRITE  BINARY 

CALE  and  fix  data  vector*  pack  n 

OR  SREREAD 

sfast  and  convient 

SUNPACK  AND  RESCALE  A  PACKED 
S  PER  REGISTER  SSCALE  AND  FIX 
NTOUR  A  MATRIX  ON  THE  PRINTER  IN 
AND  REPOSITION  TAPE  TO  FRONT  OF 
ONT  Or  DECK  SLIST  DATA 

ECTOR  FOR  MOMOTONE  INCREASING  OR 

OF  function  OR  its  magnitude 
ONS»  floating  and  fixed  point 

AND  DEPENDENCY  FROM  PROBABILITY 
IVEN  LAG  SSECODN  PROBABILITY 

nsitsmean  square  contingency  and 

FRENC ING 

ON  OF  SIMULTANEOUS  EQUATIONS  AND 
ROM  TRUE  AVERAGE  SR.M.S. 

VFCTOR  TO  POWER  QR  SUM  POWER  OF 
FCTOR  ELFMFNTS  IN  PAIRS 
IF  SAME  INCLUDING  SIGN  SSIGN  OF 
HER  OR  FROM  A  CONSTANT  $SUM 


CUBIC  INTERPOLATION  SHI-5 

CURIC  WHICH  FXACTLY  FITS  A  PQU 

CURVE  SCOPE  PLOTTING  FOR  SUBRO 

CURVE  SCOPE  PLOTTING  FOR  SUBRO 

DANIELL  SPECTRA  SMODIFY 

DATA  BLOCK 

DATA  in  generalized  format 
data  on  tape 

DATA  POINTS  PER  REGISTER  $S 
DATA  RECORD  AND  END  FILE  MON  I T 
DATA  STORAGE  ON  TAPE 
DATA  VECTOR 

DATA  VECTOR*  PACK  N  DATA  POINT 
DECIBELS  SCO 

DECK  SLIST  DATA  DECK 

DECK  AND  REPOSITION  TAPE  TO  FR 
DECREASING  BEHAVIOR  SCHECK  V 
SDEFINITF  trapezoidal  INTFGRAL 
SDElTA  FUNCTION  and  STEP  functi 
DENSITjmEAN  Square  contingency 
DENSITY  OF  INTEGER  SERIES  AT  G 
DEPENDENCY  FROM  PROBABILITY  DE 
SDERIVATIVE  OF  A  VECTOR  OF  DIFF 
DETERMINANT  EVALUATION  SSOLUTI 
DEVIATION  FROM  GIVEN  BASE  OR  F 
DEVIATIONS  FROM  BASF  SRAISE 
SDIFFERENCE  FIXED  OR  FLOATING  V 
DIFFERENCE  OF  2  VARIABLES  OR  0 
DIFFERENCE  OF  VECTOR  FROM  ANOT 


PR  OR  FROM  A  CONSTANTSSUM  SQUARF  DIF.  OF  FLTG  VECTOR  FROM  ANOTH 
FR  OR  F°OM  A  CONSTANTSSUM  SQUARE  DIF.  OR  FXD.  VECTOR  FROM  ANOTH 
^DERIVATIVE  OF  A  VECTOR  OF  DIFFERENCING 
S I NVFRS I  ON  OF  DIFFERENTIATION  BY  DIFPERENCING 

G  SINVERSION  OF  DIFFERENTIATION  BY  DIFFERENCE 

RINTER  COLUMNS  WITH  INCREASING  3-DIGIT  INTEGERS  SLABEL  P 

NE  FOR  RAND  corp.  million  random  DIGITS  FROM  TAPE  SACCESS  ROUTI 
QUAPFS  PPFDICTOR  BY  RFCURS ION*  1-DIMENSION  SREALIZABLE  LEAST  S 
SDISPLACED  DOT  PRODUCT  OF  2-DIMENSIONAL  ARRAYS 
N  STWO-DIMENSIONAL  FILTER  BY  RECURSIO 

tro-symmftric  or  antisymmetric  2-DIMENSIONAL  ARRAY  SROTATE  CEN 
SSPATIAL  CPOSSCORRFLATiON  OF  2-DIMENSIONAL  SPATIAL  arrays 

SFAST  TWO-DIMENSIONAL  SPATIAL  SPECTRUM 
QUARES  PREDICTOR  BY  RECURSION*  2-DIMENSIONS  SREALIZABLE  LEAST  S 
T  GENERATOR  FOR  SCOPE  SUBROUTINE  DISPLA  SVAR I  ABLE  ORIGIN  FORMA 
ENSIONAL  ARRAYS  SDISPLACED  DOT  PRODUCT  OF  2-DIM 

VFCTOR  SFREQUENCY  DISTRIBUTION  OF  A  FIXED  POINT 

EQUALLY  LIKELY  SECTIONS  SNCRMAL  DISTRIBUTION  AND  DIVISION  INTO 
SRFGION  TO  MA  X  I M I Z  p  RATIO  OF  TWO  DISTRIBUTION  FUNCTIONS 
mFnTS  SGENEPATF  PROBABILITY  DISTRIBUTION  WITH  SPECIFIED  MO 

CONSTANT  SDIVIDE  A  FLOATING  VECTOR  BY  A 
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EXPAND 

CUFIT1 

HSTPlT-I I  I 

HSTPLT-I 1 1 

ADANL 

MVBLOK 

RDATA 

WRTDAT 

PAKN 

REREAD 

OUDATA 

UNPAKN 

PAKN 

cntrdb 

dadeck 

DADECK 

MONOCK 

tingl 

delta 

MSCON1 

PROB2 

MSCON1 

DERIVA 

SIMEO 

RMSDEV 

POWER 

DIFPRS 

XACTEQ 

SUMDFR 

sqrdfr 

XSQDFR 
DERIVA 
IDERIV 
I DER  1 V 
COlABL 
getrdi 

RLSPR 

DO  TP 

FIRE2 

ROAR2 

SPCOR2 

PLANSP 

RLSPR  2 

DSPFMT 

DOTP 

FRQCT1 

NOINT1 

MXRARE 

PRBFIT 

DIVIDE 


PROVABLE  RANGES 
ANT 


SDIVIDE  THE  X  AXIS  INTO  EQUALLY  F 
SDIVIDE  A  EXD  VECTOR  BY  A  CONST  M 


BY  THOSE  OF  ANOTHER  SDIVIDE  ELEMENTS  OF  ONE  VECTOR 

rrTOPS  WITH  OR  WITHOUT  ROUNDING  SDIVIDE  ELFVENTS  OF  TWO  FIXED  V 
BING  TO  eOBTBAN-II  I  NT  EGFsFXO  pT  DIVIDE  WITH  TRUNCATION  OR  ROUN 
SHOVING  SUMMATION  WITH  DIVISION  BY  A  CONSTANT 
SDOT  PRODUCT  OF  TWO  VECTORS  WITH  DIVISION  RY  CONSTANT 
ECTIONS  SNORMAL  DISTRIBUTION  AND  DIVISION  INTO  EQUALLY  LIKELY  S 

SPERFORM  LONG  DIVISION  OF  TWO  POLYNOMIALS 
RR AYS  SDISPLACED  DOT  PRODUCT  OF  2-DIMENSIONAL  A 

SFAST  DOT  PRODUCT  OF  TWO  VECTORS 


ICES  SPOT  PRODUCT  OR  REVERSED  DOT 
ICES  SDOT  PRODUCT  OR  REVERSED  DOT 
OOUCT  OF  VECTORS  of  MATRICES  SDOT 
ODUCT  OF  VECTORS  OF  MATRICES  SDOT 

rfmfnts  svector  DOT 

H  DIVISION  BY  CONSTANT  SDOT 

R  (FIXED  OR  FLOATING)  SFAST 

GIVEN  VALUESFAST  SCAN  VECTOR  FOR 
SEXTRFMAL  VALUES  OF  MATRIX 
FERENCE  FIXED  OR  FLOATING  VECTOR 


OR  SADD  A  CONSTANT  TO 

R  RIGHT  SSHIFT  VECTOR 

KE  INDEX  (by  INCREASING  SIZE)  OF 
HT  sshift  vector 

OR  SSUM  THE  SQUARED 

INTEGER  VECTOR  SFAST  SQUARE 

vector  SSUM 

SSQUARE 

E  OF  ANOTHER  SDIVIDE 

WITH  OR  WITHOUT  ROUNDING  SDIVIDE 

OP  floating  smultiply 

constant  (any  MODF)  sset  all 
calling  SEQUENCES 
rtran 

AVERAGING*  MOVING  LEFT  OR  RIGHT 
SREREAD  DATA  RECORD  AND 
E  STEST  IF  NEXT  TAPE  RECORD  IS 
LUESFAST  SCAN  VECTOR  FOR  ELEMENT 

sprinter  plot  OF  A  set  OF 

SSET  ALL  ELEMENTS  OF  VECTOR 
S  SET  FXD  OR  FlTG  VECTOR 


PRODUCT 
PRODUCT 
PRODUCT 
PRODUCT 

product 

PRODUCT 
DOUBLING  OR 
ELEMENT  EQUAL 

elements 
elements 

ELEMENTS 

elements 

ELEMENTS 
ELEMENTS 
ELEMENTS 
ELEMENTS 
elements 
elements 
elements 
ELEMENTS 

elements 
elements 


OF  VECTORS  OF  MaTR 
OF  VECTORS  OF  MATR 
OR  REVERSED  DOT  PR 
OR  REVERSED  DOT  PR 


WIT!!  ARBITRARY  INC 
OF  TWO  VECTORS  WIT 
HALVING  OF  A  VECTO 
OR  GREATER  THAN 


IN  PAIRS  SDIF 

OF  A  FXD  OR  FLTG  VECt 
arithmetically  left  0 
IN  a  VECTOR  SFAST  MA 
LOGICALLY  LEFT  OR  RIG 
OF  A  FLTG  OR  FXD  VECT 
A  MACHINE  LANGUAGE 
FLOATING  OR  FIXED 
FXD  OR  FLTG  VECTOR 
ONE  VECTOR  BY  THOS 
TWO  FIXED  VECTORS 
TWO  VECTORS  F I XFD 
VECTOR  EQUAL  TO  A 
SENABLE  FORTRAN  VARIABLE  LENGTH 
SENABLE  MIXED  EXPRESSIONS  IN  FO 
END  STRIANGULAR 

END  FILE  MONITOR 
End  OF  FILE  and  REPOSITION  tap 
EQUAL  OR  GREATER  THAN  GIVEN  VA 
EQUAL  LENGTH  VECTORS 
EQUAL  TO  A  CONSTANT  (ANY  MODE) 
EQUAL  TO  A  LINEAR  SEGMENT 


OF 

OF 

OF 

OF 

OF 

OF 

OF 


R  FLTGJSSFT  ANY  NO.  OP  V4RIABLPS 
OR  FLTG)  SSFT  ANY  NO.  OF  VECTORS 
OR  FLTGSSFT  ANY  NO.  OF  VARIABLES 
I  ABLE  S  OR  A  SET  OF  VARIABLES  FOR 
SDIVIDE  THE  X  AXIS  INTO 
SFIND  CUBIC  WHICH  EXACTLY  FITS  4 
L  DISTRIBUTION  AND  DIVISION  INT-" 
0  OUADPATIC  WHICH  EXACTLY  FITS  „ 


EQUAL  TO  A  SINGLE  VALUE  (FXD  0 
EQUAL  TO  SEPARATE  VALUES  (EXD 
EQUAL  TO  SEPARATE  VALUES  (FXD 
EQUALITY  SCOMPARE  PAIRS  OF  VAR 
EQUALLY  PROBABLE  RANGES 
p  JALLY  SPACED  POINTS 
.qually  likely  sections  SNORMA 
EQUALLY  SPACED  POINTS  $F I N 
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GRUP2 
XDVIDE 
J  VDVBYV 
XVDV6V 
XDIV 
MVNS'JM 
VDOTV 
NOINTi 
POLYDV 
DOTP 
FDOT 
MDOT3 
MDOT 
MDOT  3 
MDOT 
DOT  J 
VDOTV 
DUBLX 
FASCN1 
MAXSNM 
DIFPRS 
BOOST 
SHFTR 1 
SIZEUP 
SHFTR2 
SQRS'JM 
SORMLI 
SUM 

SQUARE 

VDVBYV 

XVDVBV 

V  T I MSV 

SETKV 

VAPARG 

SAME 

TAMVL 

REREAD 

ZEFBCD 

FASCN1 

pltvsi 

setkv 

setlin 

SETK  -II 

setkvs 

SETKS  -I  I 
CMP ARP 
GRUP2 
CUFIT1 
NOINTI 
QUF I T 1 
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NATION  SSOLUTION  OF  SIMULTANEOUS  equations  and  determinant  fval 
VERT  MACHINF  LANGUAGE  INTEGER  TO  EQUIVALENT  HOUFRITH  SCON 

SWIENER-LEVINSON  LEAST  SQUARE  ERROR  FILTER  OR  PREDICTOR 
FD  ARGUMENTS  SFAST  EVALUATE  CUBIC  FOR  EVENLY  SPAC 

l  coefficients  for  real  argumenTsevaluate  a  polynomial  with  REA 


SCGMPLEX  POLYNOMIAL  EVALUATION 

ANEOUS  EQUATIONS  AND  DETERMINANT  EVALUATION  SSOLUTION  OE  SIMULT 
IN  GROUPS  OF  FIVE  AS  POKER  HANDSEVALUAT I  ON  OE  INTEGER  SEQUENCE 


»  SSPlIT  A  VECTOR  INTO  ITS 

M  A  vector  by  sifting  another  AT 

NE  WHETHER  FORTRAN-II  INTEGER  IS 

d/or  sine  transforms  from  2  or  4 

SFAST  EVALUATE  CUBIC  FOR 
NTlRPOLATION  OPERATOR  FOR  1  TO  4 
TO  INTEGERS  FOR  SCOPE*  CLIPPING 


EVEN  AND  ODD  DARTS  (OR  INVERSE 
EVEN  INCREMENTS  SFOR 
EVEN  OR  ODD  SDETERMI 
EVEN-ODD  PARTS  SFAST  COSINE  AN 


EVENLY  SPACED  ARGUMENTS 
EVENLY  SPACED  DATA  VALUES  $1 
EXCESSIVE  VALUES  SSCALE  VECTOR 
SEXCHANGE  ANY  TWO  VECTORS 
SSUBROUTINE  GRAPH  EXPANDED  OVER  VERTICAL  FRAMES 
BIC  INTERPOLATION  SHt -SPEED  EXPANSION  OF  !  VECTOR  UNDER  CU 

SENABLE  MIXED  EXPRESSIONS  IN  FORTRAN 

sfind  signed  op  unsigned  extremal  values  of  a  vector 


cnts 

FINITE  MATRIX 

minimum  phase  wavelet 

o 

OF  DATA  FROM  A  SPECIAL  TAPE 
EGMENT  ON  SCOPE 
FOMENT  ON  SCOPE 
E  vectors  for  idfntity 
ECTOR  TO  ML  I  VECTOR 
n  ANOTHER  -  VERSION  2 
ORMS  FROM  2  OR  4  EVEN-ODD  PARTS 
ORMS  OF  ODD-LENGTH  SERIES 


SEXTREMAL  VALUES  OF  MATRIX  FLEM 
SFACTOR  A  SYMMETRIC  POSITIVE  DE 
SFACTOR  POWER  SPECTRUM  TO  FIND 
SFAST  ABSOLUTE  VALUE  OF  A  VECTO 
SFAST  A'  CONVENIENT  kETRII'.-c 
SFAST  ARBITRARY  STRAIGHT  LlNc  S 
SFAST  arbitrary  STRAIGHT  LINE  S 
SFaST  COMPARE  TWO  ARBITRARY  MOD 
SFAST  CONVERT  FORTRAN  INTEGER  V 
SFAST  COPY  FILE  FROM  ONE  TAPE  T 
SFAST  COSINE  AND/OR  SINE  TRANSF 
SFAST  COSINE  AND/OR  SINE  TRANSF 


SIDFD  AUTOCORRELATIONS  SFAST 

S  SFAST 

VICTOR  (FIXED  OP  FLOATING)  SFAST 

SDACED  ARGUMENTS  SFAST 

SPLOT  FAST 
SPLOT  FAST 

RS  *  A  S  PRODUCED  BY  SPLIT.  SFAST 

DUAL  OP  GREATER  THAN  GIVEN  VALUESFAST 
INDICES  SFAST 

SPLOT  FAST 
SPLOT  FAST 

ON  TAPE  SFAST 

♦  LIMITED  ACCURACY  SERIES  SFAST 

M I T RD  ACCURACY  SFRIFS  SFAST 

IFS  OF  FIXED  POINT  INTEGERS  $fa3T 

F  CROSS-CORPELATlON  FUNCTIONS  SFAST 
NG»  LIMITED  ACCURACY  SERIES  SFAST 


SIFNT  WITH  ARBITRARY  TIMC  ORIGINSFAST 


COSINE  TRANSFORMS  OF  ONE- 
DOT  PRODUCT  OF  TWO  VECTOR 
DOUBLING  OR  HALVING  OF  A 
EVALUATE  CUBIC  FOR  EVENLY 
HORIZONTAL  LINE  ON  SCOPE 
HORIZONTAL  LINE  ON  SCOPE 
REVERSAL  OF  SPECIAL  VECTO 
SCAN  VECTOR  FOR  ELEMENT  E 

TRACK  through  A  vector  OF 
VERTICAL  LINE  ON  SCOPE 
VERTICAL  LINE  ON  SCOPE 
AND  CONVIENT  DATA  STORAGE 
AUTOCORRELATIONS  FOR  LONG 
CONVOLUTIONS  FOR  LONG*  LI 
CORRELATIONS  FOR  LONG  SER 
COSINE.  SINE  TRANSFORMS  C 
CROSS-CORRELATIONS  FOR  LO 
FOURIER  TRANSFORM  OF  TRAN 


V  SIMEO 

m  MLI2A6 


F  WLLSFP 

M  FASCUB 

F  POLYEV 

F  IPLYEV 

M  SIMEO 

F  POKCT1 

M  SPLIT 

M  SIFT 

M  XOOZE 

M  COSP 

M  FASCUB 

M  INTOPR 

M  SCPSCL 

M  EXCHVS 

F  GRAPHX 

M  EXPAND 

M  SAME 

M  MAXSN 

M  MAXSNM 

F  MFACT 

M  F  AC  I  Ot-. 

M  AoS  . 

F  INDATA 

M  7090LINE 
M  709LINE 
M  CMPARV 

M  ITOMLI 

M  ‘PYFL2 


K  -OSP 

F  COSIS1 

M  ASPECT 

M  FOOT 

M  DUBLX 

M  FASCUB 

M  7090LINEH 
M  709LINEH 
M  CHPRTS 

M  FASCN1 

M  FASTRK 

M  7090LINEV 
M  709LINEV 
F  OUDATA 

F  OACORR 

F  QCNVLV 

M  PROCOR 

F  XSPECT 

F  QXCORR 

F  OFURRY 
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SINES  AND  COSINES 
SIZE)  OF  ELEMENTS 
ED  POINT  VECTOR 
A  VFCTOR 


SFAST  FUNCTIONS  FOR  SEQUENTIAL 


VECTOR  SFAST  MAKE  INDEX 


INCREASING  M 


INE  LANGUAGE 
PECTRUM 


INTEGER  VECTOR 


SFAST  MOVING  SUMMATION  OF  A  FIX  M 
SFAST  REVERSE  STORAGE  ORDER  OF  M 
SFAST  SET  VECTOR  TO  ZERO  M 
SFAST  SQUARE  ELEMENTS  OF  A  MACH  M 

sfast  two-dimensional  spatial  s  f 


SGFNFRATF  HOLLERITH  FIELD 
-  VERSION  2  SFAST  COPY  FILE  FROM  ONE  TAPE  Tc  ANOTHER 

ST  IF  NEXT  TAPE  RECORD  IS  END  OF  FILE  AND  REPOSITION  TAPE  $TE 
SREREAD  DATA  RECORD  AND  END  FILE  monitor 
SSKIP  FORWARD  OR  BACKWARD  OVER  FILES  ON  TAPE 

SADVANCE  FILM  FRAME  ON  SCOPE 
S ADVANCE  FILM  FRAME  ON  SCOPE 
SMULT I-INPUT  FILTER  BY  LEAST  SQUARES 

stwo-dimensional  filter  Pv  recursion 

SPONSE  ^GENERATE  SYMMETRICAL  FILTER  WITH  GIVEN  AMPLITUDE  RE 
ENER-LEVINSON  LEAST  SQUARE  ERROR  FILTER  OR  PREDICTOR  SWI 

sfind  cl'bic  which  fxactly  fits  u  equally  spaced  points 

SFIND  QUADRATIC  WHICH  FXACTLY  FITS  3  EQUALLY  SPACED  POINTS 
WITHOUT  ROUNDING  $FIX  A  FLOATING  VECTOR  WITH  OR 

OINTS  PER  REGISTEP  S3CALE  AND  FIX  DATA  VECTOR*  PACK  N  DATA  P 
DOUBLING  OR  HALVING  OF  A  VECTOR  (FIXED  OR  FLOATING)  SFAST 

cosine  or  sine  half-wave  tables,  fixfd  or  floating  sgenerate 

NTS  in  PAIRS  SO  1 FFERENCE  FIXED  OR  FLOATING  VECTOR  ELEME 

AND  S  i  EP  FUNCTIONS.  FLOATING  AND  FjXED  POINT  $DFL  T A  FUNCTION 
T I P  - Y  AN  MLI  VFCTOR  BY  A  FORTRAN  FIXED  POINT  INTEGER  SMUL 

SFREQUENCY  DISTRIBUTION  OF  A  FIXED  POINT  VECTOR 
PATED  SUMMATION  OF  A  FLOATING  OF  FIXED  VECTOR  SINTEG 

SSET  LINEAR  VECTORS.  FIXED  AND/OR  FLOAT+NG 
*MULTIPLY  VECTOR  BY  FLOATING  OR  FIXED  CONSTANT 
MULTIPLY  ELEMENTS  OF  TWO  VECTORS  FIXED  OR  FLOATING  S 

GH  A  CONSTAN.  SREFLECT  A  FIXED  OR  FLOATING  VECTOR  THROU 

CORRELATIONS  FOR  LONG  SERIES  OF  FIXED  POINT  INTEGERS  SFAST 

SFAST  MOVING  SUMMATION  OF  A  FIXED  POINT  VECTOR 
sfind  AVERAGE  OF  FIXED  PT  VECTOR 
SREMOVE  THE  MEAN  FROM  A  FIXED  VECTOR 
S SUM  FLEMENTS  OF  FLOATING  OR  FIXED  VECTOR 

S SQUARE  ROOT  OF  A  FIXED  VECTOR  WITH  ROUNDING 
SADD  OR  SUBTRACT  TWO  FLOATING  OR  FIXED  VECTORS 

ROUNDING  SDI V I DE  FLEMENTS  OF  TWO  FIXED  VECTORS  WITH  OR  WITHOUT 


M 

HER  M 

ste  M 

M 

M 

M 

M 

F 

F 

€  RE  F 
SWI  F 
TS  M 
TS  M 
OR  M 
TA  P  M 
AST  M 
ATE  M 
LEME  M 
ION  M 
SMUL  M 


SINTEG  M 
M 


FIXED  OR  FLOATING  VECTOR  THROU  M 
FIXED  POINT  INTEGERS  SFAST  M 
FIXED  POINT  VECTOR  M 


FIXED  VECTOR  WITH  ROUNDING 


EGER  SFLOAT  ANY 

OR  HALVING  OF  A  VFCTQR  (FIXED  OR  FLOATING) 
SINE  HALF-WAVE  TABLES.  FIXED  OR  FLOATING 


SFLOAT  A  VECTOR  M 

SFLOAT  ANY  MACHINE  LANGUACE  IN?  M 


SFAST  DOUBLING  M 
SGENERATE  COSINE  OR  M 


LTA  FUNCTION  AND  STEP  FUNCTIONS.  FLOATING  AND  FIXED  POINT 
SINTEGRATED  SUMMATION  Of  A  FLOATING  cf  fixed  VECTOR 
SFIND  AVERAGE  OF  FLOATING  VECTOR 

SDIVIDE  A  floating  VECTOR  BY  A  CON! 


SDE  M 
M 


SDIVIDE  A  FLOATING  VECTOR  BY  A  CONSTANT  M 

sjifffrencf  fixed  or  floating  vector  ELEMENTS  in  pa  m 


seqsac 

SIZEUD 

M'JVADD 

REVERS 

STZ 

SQRMLI 
PLANSP 
GENHOL 
CPYFL2 
ZEF8CD 
REREAD 
FSKIP 
7090FRAME 
709FRAME 
MIFLS 
F  I  RE  2 
gnflti 

WLLSFP 

CUFIT1 

QUFIT1 

F I XV 

PAKN 

DUBLX 

COST  BL 

DIFPRS 

DELTA 

MLISCL 

FRQCT1 

INTSUM 

setlns 

MULPLY 

VTIMSV 

reflec 

PROCOR 

MUVADD 

XAVRGE 

XREMAV 

SUM 

XSQRUT 

VPLUSV 

XVDVBV 

FLOATV 

FLOATM 

DUBLX 

COStBL 

DELTA 

INTSUM 

AVRAGE 

DIVIDE 

DIFPRS 
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T  ROUNDING  SFIX  A 

SET  LINEAR  VECTORS.  FIXED  AND/OR 
flements  of  two  vectors  FIXED  OR 
SMULTIPLY  vector  by 
ssum  elements  of 

SADD  OR  SUBTRACT  two 
INTFGER  STrUNCATE  or  ROUND 

SRFMOVE  the  MEAN  from  a 
ROUND.  ROUND  UP.  OR  ROUND  DOWN  A 
$SQUAPE  ROOT  OF  A 
TANT  SREFLECT  A  FIXED  OR 

CONSTANT  TO  ELEMENTS  OF  A  FXD  OR 
ANY  NO.  OF  VARIABLES  BY  A  SINGLE 
RS  OR  CONVERSELY  SSCALE*  CONVERT 
EQUAL  TO  A  SINGLE  VALUE  (FXD  OR 
EQUAL  TO  SEPARATE  VALUES  (FXD  OR 
$SUM  THE  SQUARED  ELEMENTS  OF  A 
SSOUARE  FLEMENTS  OF  FXD  OR 
SEGMENT  $  SET  FXD  OR 

DM  A  CONSTANTJSUM  SQUARE  DIF.  OF 
EQUAL  TO  SEPARATE  VALUES  (FXD  OR 
PT,  NO.  UP.  DOWN.  OR  TO  NEAREST 
NEAREST  FLTG.  PT.  INTEGER  SROUND 
SACCESS  TO  LITERAL  0®  ORDINARY 


floating 

float+ng 

floating 

floating 

floating 

floating 

floating 

floating 

FLOATING 

floating 

floating 


VICTOR  WITH  OR  WUHOU 

$ 

SMULTIPLY 
OR  FIXED  CONSTANT 
OR  FIXED  VECTOR 
OR  FIXED  VECTORS 
PT.  NUMBER  To  MACHINE 
VECTOR 

S 


Through  a  cons 
sadd'  A 


vector 

VECTOR 
VECTOR 
fltg  vector 
fltg.  PT.  constant  smuliiply 
fltg.  vector  to  machine  intege 
fltguset  any  no.  OF  VARIABLES 
FLTG)  sset  any  no.  of  vectors 
fltg  OR  FXD  VECTOR 
FLTG  vector 

FLTG  VECTOR  EQUAL  TO  A  LINEAR 

fltg  vector  from  another  or  fr 
FLTGSSET  any  no.  of  variables 
Fltg.  PT.  INTEGER  SROUND  FLTG. 
FLTG.  PT.  NO.  UP.  DOWN.  OR  TO 
FORMAT 


SMATaiX  OUTPUT  IN  G  FORMAT 


PUT  VARIABLES  FIVF  PER  LINE  IN  G 
ROUTINE  DISPLA  SVARIA0LE  ORIGIN 
TPUT  TAPE  WiTh  NORMAL  OR  LITERAL 
OR  OUTPUT  WITH  NORMAL  OR  LITERAL 
T  VARIABLES  BY  NORMAL  OR  LITERAL 
SREAD  DATA  IN  GENERALIZED 
R  OUTPUT  STATEMENT  SREPLACE  THE 
AMED  VECTOR  BY  NORMAL  OR  LITERAL 
UMN  VECTORS  BY  NORMAL  OR  LITERAL 
MED  VECTORS  BY  NORMAL  OR  LITERAL 
SMULTIPLY  AN  ML  I  VECTOR  BY  A 
frith  vector  SPACK  UP 

VECTOR  SFAST  CONVERT 

SSPREAD  OUT  HOLLERITH  VECTOR  AS 
SENABLE  MIXED  EXPRESSIONS  IN 

f  with  tduncatiom  or  rounding  to 

ODD  SDETERMINE  WHETHER 

G  SEQUENCES  SENABLE 

WITH  ARBITRARY  TIME  ORIGINSFAST 
RY  Time  ORIGIN  SQUICK  INVERSE 

SADVANCE  FILM 
SADVANCE  film 
TS  smultiple 

INE  GRAPH  EXPANDED  OVER  VERTICAL 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMATS 

FORMATS 

fortran 

fortran 

fortran 

fortran 


GENERATOR 

vector 


SOUT 

FOR  SCOPE  SUB 
SWRITE  OU 
soffline  vect 

SOUTPU 


OF  A  SUCCEEDING  INPUT  0 
WITH  SPACING  SOUTPUT  N 
SOUTPUT  COL 

with  spacingsoutput  NA 
FIXED  POINT  INTFGFR 
integer  VECTOR  AS  HOLL 
INTEGER  VECTOR  TO  ML  I 
integers 


FORTRAN 

FORTRAN-II  INTEGESFXD  PT  DIVID 

fortran- 1 1  integer  is  even  or 
fortran  variable  length  callin 

FOURIER  TRANSFORM  OF  TRANSIENT 
FOURIER  TRANSFORM  WITH  ARBITRA 
FRAME  ON  SCOPE 
FRAME  ON  SCOPE 

FRAME  SCOPE  PLOTS  OF  VECTOR  SE 
FRAMES  ssubrout 


ALUES  OF  A  SERIES  IN  GIVEN  RANGE$FREQUENCY  COUNT  OF  NUMBER  OF  V 


M  F  I X  V 

M  SETLNS 

M  VlIMSV 

M  MULPLY 

M  SUM 

M  VPLU5V 

M  XF1XM 

M  REMAV 

M  RNDV 

M  SQROOT 

M  REFLEC 

M  BOOST 

F  MULK  -II 

M  FXDATA 

F  SETK  -II 

M  SETKVS 

M  SQR  SUM 

M  SQUARE 

M  SETLIN 

M  SQRDFR 

F  SETKS  -II 

M  RND 

M  RND 

M  FNDFMT 

F  MOUT 

M  CSOUT 

M  DSPFMT 

F  FMTOUT 

F  VECO'JT 

M  VRSOUT 

F  RDATA 

M  RPLFMT 

F  VOUT 

M  CVSOUT 

M  VSOUT 

M  MLISCL 

M  IVTOHV 

M  ITOMLI 

M  HVTOIV 

M  SAME 

M  XDIV 

M  XOOZE 

M  VARARG 

F  QFURRY 

F  Q I  FURY 

M  7090FRAME 
M  709FRAME 
F  GRAPH 

F  GRAPHX 

M  FRQCT  2 
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XFD  POINT  VECTOR  SFREQUENCY  DISTRIBUTION  OF  A  FI 

sarctangent  function 

pith  LEcT  ADJUST  OR  right  ADJUST  FUNCTION  SHOLlE  m 

SLOGICaL  SHIFT  FUNCTION  M 

LOATING  and  fixed  °oint  sdelta  funciion  and  step  functions,  f  m 

ON  ^INVERSION  OF  A  MONOTONE  FUNCTION  BY  LINEAR  INTERPOLATI  M 

DEFINITE  TRAPEZOIDAL  INTEGRAL  of  function  or  its  magnitude  s 
point  SDElTa  ^UNCTION  AND  step  FUNCTIONS.  FLOATING  and  FIXED 
TRANSFORMS  OF  CROSS-CORRELATION  FUNCTIONS  $F AST  COSINE.  SINE 
X I M 1 2 E  RATIO  OF  TWO  DISTRIBUTION  FUNCTIONS  SREGION  TO  MA 


$F AST  COSINE.  SINE 
SREGION  TO  MA 


AND  COSINES 


SFAST  FUNCTIONS  FOR  SEQUENTIAL  SINES  M 


SADD  A  CONSTANT  To  ELEMENTS  OF  A  FXD  OR  FlTG  VECTOR  M 

ECTORS  FOUAL  TO  SEPARATE  VALUES  (FCD  OR  FlTG)  SSET  ANY  NO.  OF  V  M 

RIABLES  EQUAL  TO  A  SINGLE  VALUE  (FXD  OR  FlTG)$SET  ANY  NO.  OF  VA  F 
$ SQUARE  ELEMENTS  OF  FXD  OR  FLTG  VECTOR  M 

LINEAR  SEGMENT  *  SET  FXD  OR  FLTG  VECTOR  EQUAL  TO  A  M 

IABLES  EQUAL  TO  SEPARATE  VALUES  (FXD  OR  FLTGSSET  ANY  NO.  OF  VAR  F 

OR  ROUNDING  To  FORTRAN-11  INTEGESFXD  PT  DIVIDE  WITH  TRUNCATION  M 
HE  SQUARED  ELEMENTS  OF  A  FLTG  OR  FXD  VECTOR  SSUM  T  M 

SDIVIDE  A  FXD  VECTOR  BY  A  CONSTANT  M 

OM  A  CONSTANTSSUM  SQUARE  DIF.  OR  FXD.  VECTOR  FROM  ANOTHER  OR  FR  M 


SMATRIX  OUTPUT 
UTPUT  VARIABLES  FIVE  PER  LINE 
AVE  TABl.FS.  FIXED  OR  FLOATING 


FORMAT 

FORMAT 


F 

SO  M 


DISPLA  SVARIABL 
A.R  GRAPH  PLOiilNQ  FOR  SUBROUTINE  GRAPH 
VE  SCOPE  PLOMING  FOR  SUBROUTINE  GRAPH 
VE  SCOPE  PLOTTING  FOR  SUBROUTINE  GRAPH 
ISTOGRAM  PLOTTING  FOR  SUBROUTINE  GRAPH 


S.  FIXED  OR  FLOATING  SGENERATF  COSINE  OR  SINE  HALF-W  M 

SGENERATE  HOLLERITH  CHARACTERS  M 
SGENERATE  HOLLERITH  FIELD  M 

TH  GIVEN  AMPLITUDE  RESPONSE  SGEN..RATE  SYMMETRICAL  FILTER  Wl  F 

ION  WITH  SPECIFIED  MOMENTS  SGENERATE  PROBABILITY  DISTRIBUT  F 

SVAR I  ABLE  ORIGIN  FORMAT  GENERATOR  FOR  SCOPE  SUBROUTINE  M 


SB  M 

SCUBIC  CUR  M 
SCUBIC  CUR  M 
SH  M 


RAMES  SSUBROUTINE  GRAPH  EXPANDED  OVER  VERTICAL  F  F 

GRAPH  SBAR  GRAPH  PLOTTING  FOR  SUBROUTINE  M 

VALUATION  OF  INTEGER  SEQUENCE  IN  GROUPS  OF  FIVE  AS  POKER  HANDSE  F 
ATING  SGENERATE  COSINE  OP  SINE  HALF-WAVE  TABLES.  FIXED  OR  FLO  M 
FLOATING)  SFAST  DOUBLING  OR  HALVING  OF  A  VECTOR  (FIXED  OR  M 

UENCE  IN  GROUPS  OF  FIVE  AS  POKER  HANDSEVALUAT I  ON  OF  INTEGER  SEQ  F 
UNDER  CUBIC  INTERPOLATION  SHI-SPEED  EXPANSION  OF  A  VECTOR  M 

SHIGH  SPEED  24  POINT  SPECTRUM  F 

SHIGH  SPEED  24  POINT  SPECTRUM  M 

INE  GRAPH  SHI STOGRAM  PLOTTING  FOR  SUBROUT  M 

E  LANGUAGE  INTEGER  TO  EQUIVALENT  HOLLERITH  SCONVERT  MACHIN  M 

SINTERPRET  HOLLERITH  M 


SSUBROUTINE  GRAPH  EXPANDED  OVER  VERTICAL  F 
SBAR  GRAPH  PLOTTING  FOR  SUBROUTINE 


INE  GRAPH  SHI STOGRAM 

E  LANGUAGE  INTEGER  TO  EQUIVALENT  HOLLERITH 

SINTERPRET  HOLLERITH 


OUENCE 

ADJUST  FUNCTION 


SGENERATE  HOLLERITH  CHARACTERS  M 

SGET  HOLLERITH  DATA  FROM  CALLING  SE  F 

SGENERATE  HOLLERITH  FIELD  M 

SHOLLERITH  LEFT  ADJU5T  OR  RIGHT  M 


SWRITE  HOLLERITH  TEXT 


SCOPE 


FROCT1 

ARCTAN 

hladj 

LSHFT 

DELTA 

I  F  N  C  T  n 

TINGL 

DELTA 

XSPECT 

MXRARE 

SEQSAC 

BOOST 

SETKVS 

setk  -II 

SQUARE 

SETlIN 

setks  -I  I 

XDIV 

S'jRf  UM 

XDVIDE 

XSQDFR 

VOUT 

CSOUT 

COSTBL 

GNHOL2 

GENHOL 

gnflti 

PRBcIr 

DSPFMT 

HSTPLT-I I 

HSTPLT-I I  I 

HSTPLT-I I  I 

HSTPlT 

GRAPHX 

HSTPLT-I I 

POKCTl 

COSTBL 

DUBLX 

POKCTl 

EXPAND 

FT  24  -II 

FT  24 

HSTPLT 

MLI2A6 

INTHOL 

GNHOL2 

GETHOL 

GENHOL 

HLADJ 

7090DISPLA 
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ArK  UP  cdrTpaw  t  uTrrrn  HOLLERITH  TEXT  ON  SCOPE  M 

a.v  u t-  ^ORIPAN  INTEGER  VECTOR  AS  HOLLERITH  VECTOR  sp  M 

.  .  .$S°?FA?  0UT  HOLLERITH  VECTOR  AS  FORTRAN  IN  M 


P  TWO  ARBITRARY  MODE  VECTORS  FOR  IDENTITY 
MOLITUDE  AND  PHASE  FROM  REAL  AND  IMAGINARY* 


'R  REVERSE 


COMP A R  M 
$  A  M 


SL-»BtL  PRINTER  COLUMNS  WITH  INCREASING  3-DIGIT  INTEGERS  F 

,-St~Ck  !f5T09  r-n  '"O^ctone  increasing  OR  DECREASING  BEHAV  M 


7  Ft  TOR 


PP  n„  ...-Tu- lFtS,l  VAK-  r,NDEX  (BY  iNCR' ASING  SUE)  OF  ELEMENTS  I  M 
RO  ,  A;  ThER  WITH  NEW  RANGE  AND  INCREMENT  SCREATE  ONE  VECTOR  M 

I*1!:  -'HYBRID  SU9d^GoAmS  FOR  INCREMENTING.  TESTING.  AND  SET  M 

-CT  -  yp  dooDJCT  WITH  ARBITRARY  J  NCC iMENTS  SV  M 

VilZ'h>,,T  SlcTlSiG  ANOTHER  AT  EVEN  INCREMENTS  SFORM  A  V  M 

” T  AUXILIARY  INFORMATION  FOR  AN  InDATA-OUOATA  TYPE  TAPE  $L  F 
S  I  N  I  T  i  AL  I  Z ED  F ”'R  ADDING  TO  AN  I  NDATA-OUDAT A  TAPE  F 

STERMINATE  AN  INDATA-OUDATA  TAPE  F 

IDAL  RULf  SINDK'INITE  INTEGRAL  BY  TRAPEZO  M 

A  ATRIX  COLUMN  WITH  ARBITRARY  INDEX  BY  INTERPOLATION  $FIN  M 
c  L  ^  m  c  m  j  5  IN  a  VFCTOR  SFAST  MAKE  INDEX  (BY  INCREASING  SIZE)  OF  M 
SCORE  LOCATION  WITH  INDEXABLE  ARGUMENT  M 

SALLOWS  VARIABLE  DFPTh  INDEXING  OF  VECTORS  M 

sfast  track  through  a  vector  of  indices  m 

VDATA-OUDATA  TAPE  SINITIAlIZED  FOR  ADDING  TO  AN  I  F 

smulti-input  filter  BY  least  SQUARES  F 

c-'  smulti-input  predictor  by  least  squar  p 

„  r  SMULTI-INPUT  SIDEWARDS  ITERATION  f 

LAfF  rnr  FORMAT  of  a  SUCrr«rDING  input  oi,  OUTPUT  STATEMENT  $RE  M 

S FLOAT  any  MACHINE  LANGUAGE  INTEGER  M 

VICTOR  BY  A  FORTRAN  FlXEf.  POINT  INTEGER  SMULTIPLY  AN  ML  I  M 

AD  A  5-OUFNCE  OF  NlJMRC’p*;  INTO  AM  luTCr.co  erntrr  _  .. 


INCREMENTS  SFORM 

INDATA-OUOATA  TYPE  tape 


$V  M 
A  V  M 
SL  F 


sfast  track  through 
ydata-cudata  tape 


VECTOR  OF 


F 

SRE  M 


SMULTIPLY  AN  ML  I 


OUENCE  OF  NUMBERS  INTO  AN  INTEGER  SERIES  $M  M 

SCONVFRT  MACHINE  LANGUAGE  INTEGER  TO  EQUIVALENT  HOLLERIT  M 

SPACK  UP  FORTRAN  INTEGER  VECTOR  AS  HOLLERITH  VE  M 

SPA5T  CONVERT  FORTRAN  INTEGER  VECTOR  To  ML  I  VECTOR  M 


INTEGER  IS  EVEN  OR  ODD 


integfr  vector 


A,tpN  os  ROUND I  MO  to  coRTPAN-II  INTFGFSFXD  P7  DIVIDE  WiTh  TRUN  M 
DOWN,  ns  TO  NEAPFST  FLTr,.  PT.  INTEGER  SROUND  FLTG.  PT.  NO.  U  M 

o  floating  pt.  number  to  machine  INTeger  struncate  or  roun  m 

SDET Era*  1  nf  WHETHER  EORTPAN-II  INTEGER  IS  EVEN  OR  ODD  M 

IV  AS  POK^P  HAND«EVALUAriON  OF  INTEGER  SEQUENCE  IN  GROUPS  OF  F 
SSFConw  opoRfRILiTY  DFNS I TY  OF  INTEGFR  SERIE5  AT  GIVEN  LAG  F 
I  -,L,;ME?T5  0F  A  MACHINE  LANGUAGE  INTEGER  VECTOR  SFAST  SQUAR  M 

OJTPUT  Ta®E  A  MACHINE  fNGUAGE  INTEGFR  VECTOR  SPRINT  OR  WRIT  F 

COLUMNS  WIT,  INCREASING  3-DIGU  INTEGERS  SLABEL  PRINTER  F 

OvJ.  HOLLERITH  VECTOR  AS  r-'0R TRAN  INTEGERS  SSPRFAD  M 

KC-  SOUTPUT  A  MATRIX  AS  INTEGERS  DENSELY  PACKED  OFE-LI  F 

CONVFdt  eltg,  vector  TO  machine  integers  OR  conversely  SSCALE.  M 
S  FOR  LONG  SERIES  OF  FIXED  POINT  INTEGERS  SFAST  CORRELATION  M 

XC-SStVF  V.LUFS  «SC*LC  VfCt0f  To  integers  fop  sott.  clifpw  e  « 
SShUFFlE  a  LIST  of  INTEGERS  FPOM  1  to  n  f 

T  IN VERS  ION  OF  TP APEZOI DAL  INTEGRAL  M 

SINDC^INITE  INTEGRAL  BY  TRAPEZOIDAL  DULE  M 
^IOAL  INTEGRAL  Op  ABSOLUTE  VALUE  INTEGRAL  SMOVING  TRAPEZ  M 


SFAST  SQUAR  M 
SPRINT  OR  WRIT  F 
SLABEL  PRINTER  F 
SSPRFAD  M 
PACKED  OFF— L I  F 


?09DISPLfl 
I  VTOH 
HVTOIv 
CMPARV 
AMPHZ 

colabl 

M0N0CK 

SIZEUP 

NURINC 

INDEX 

DOT  J 

SIFT 

listing 

setino 

trmino 

INTGRA 

ARBC0L 

SIZEUP 

L0C 

GETX 

FASTRK 

SETINO 

MIFLS 

MIPLS 

MISS 

RPLFMT 

FLOATM 

MLISCL 

MPSEQ1 

MlI?A6 

IVTOHV 

itomli 

XDIV 

RND 

XFIXM 

XOOZE 

POKCTI 

°R0B2 

SQRMU 

PWMlI' 

colabl 

HVTOIV 
MOU  T  A \ 

fxdata 

PROCOR 

SCPSCL 

SHUFFt. 

I intgr 

INTGRA 

mvntin 


*»fc 
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CAL?  OR  SC'ALF  VECTOR  FOR  SIMPSON  INTEGRAL  AND/OR  INTEGRATE  SUNS 

GMJTLDE  SOEFINITF  TRAPFZOtOAL  INTEGRAL  OK  FUNCTION  OR  ITS  MA 

FGRAL  SMOVTNG  TRAPEZOIDAL  IN  FGRAL  OR  ABSOLUTE  VALUF  INT 

C T OR  FOP  SIMPSON  INTEGRAL  ANO/OR  I  NT’EGRATC  SUNSCALE  OR  SCALE  VF 

TING  OF  FIXED  VECTOR  SINTEGRATED  SUMMATION  OF  A  FLOA 

X  COLUMN  WITH  ARBITRARY  INDEX  9Y  INTERPOLATION  SEIND  A  MA7  R I 
XPANSION  of  A  VECTOR  UNDER  CUBIC  INTERPOLATION  shi-speed  e 

OF  A  MONOTONE  FUNCTION  BY  LINEAR  INTERPOLATION  SINVERSION 

slinear  interpolation  IN  A  table 

0  4  EVENLY  SPACED  DATA  VALUES  SI NTERPOLAT ION  OPERATOR  FOR  1  T 

SOUARRATlC  INTERPOLATION  IN  A  TAP.Lk 
SINTERPRET  HOl.i.CRiTri 

IMF  Timing  IN  SECONDS  USING  7090  INTERVAL  CLOCK  SEOR  REAL  T 

-LINE  PEO'JEST  IF  NOT  SCHECK  IF  INTERVAL  TIMER  IS  ON  MAKING  ON 

SINVERSE  OF  A  MATRIX 

INTO  ITS  EVEN  AND  ODD  PARTS  (OR  INVERSE)  SSPLIT  A  VECTOR 

ARBITRARY  UME  ORIGIN  SQUICK  INVERSE  FOURIER  TRANSFORM  WITH 
ON  BY  LINEAR  INTERPOLATION  SINVERSION  OF  A  MONOTONE  FUNCTI 

Y  DIFFERENCING  SINVERSION  OF  DIFFERENTIATION  B 

RAL  SINVERSION  OF  TRAPEZOIDAL  INTEG 

LEAST  SQUARES  SHAPER  BY  SIDEWAYS  ITERATION  S 

SMULTI-INPUT  SIDEWARDS  ITERATION 
REASING  3-DIGIT  INTEGERS  SLABEL  PRINTER  COLUMNS  WITH  INC 

OF  TRANSIENTS  BEGINNING  WITH  ANY  LAG  SCROSSCORRELATION 

F  TRANSIENTS  BEGINNING  WITH  ZERO  LAG  SCROSSCORRELATION  0 

SFLOAT  ANY  MACHINE  LANGUAGE  INTEGER 

HOLLERITH  SCONVERT  MACHINE  LANGUAGE  INTEGER  TO  EQUIVALENT 

AST  SOUAPF  ELEMENTS  OF  A  MACHINE  LANGUAGE  INTEGER  VECTOR  SF 

T  OP  WRITE  OUTPUT  TAPE  A  MACHINE  LANGUAGE  INTEGER  VECTOR  SPRIN 

SMULTI-INPUT  FILTER  BY  LEAST  SQUARES 

SMULTI-INPUT  predictor  BY  least  SQUARES 

SLEAST  SQUARES  LINE 

YS  ITERATION  SLEAST  SQUARES  SHAPER  BY  SIDEWA 

REDICTOR  SWIENER-LEVINSON  LF'ST  SQUARE  ERROR  FILTER  OR  P 

URS I ON •  1-DIMENSION  SREALIZABLE  L,  *  *7  SQUARES  PREDICTOR  BY  REC 

URS ION •  2-DIMENSIONS  SREAl  IZABLE  LEAST  SQUARES  PREDICTOR  BY  REC 

ION  SREALIZABLE  LEAST  SQUARES  SHAPER  BY  RECURS 

NCTION  SHOLLERITH  LEFT  ADJUST  OR  RIGHT  ADJUST  FU 

SSMIFT  VECTOR  ELEMENTS  LOGICALLY  LEFT  or  RIGHT 

T  VECTOR  ELEMENTS  ARITHMETICALLY  LEFT  OR  RIGHT  SSHIF 

STRIANGULAR  AVERAGING*  MOVING  LEeT  OR  RIGHT  END 
BLOCK  OF  VALUES  ALL  ABOVE  GIVEN  LEVELSSCAN  VECTOR  FOR  POSSIBLE 
ATa  sfind  contour  levels  for  plotting  A  ROW  OF  D 

LTER  OR  PREDICTOR  SWIENER-LEVINSON  least  square  ERROR  FI 

SFAST  AUTOCORRELATIONS  for  long*  limited  accuracy  series 

SFAST  CONVOLUTIONS  for  long*  limited  ACCURACY  series 

AST  CROSS-CORRELATIONS  FOR  LONG*  LIMITED  ACCURACY  SERIES  $F 

IND  IF  ARGUMENT  FALLS  INSIDE  TWO  LIMtTlNG  VALUES  SF 

BLES  FROM  LIST  FALL  WITHIN  GIVEN  LIMITS  SCHECK  THAT  VAR  I A 

SLEAST  SQUARES  LINE 


F  SMPSON 

M  TINGL 

M  MVNTJN 

r  SMPSON 

M  INISUM 

M  ARBCOl 


M  EXPAND 

M  IFNCTN 

F  L1NTR1 

M  INTOPR 

F  QINTR1 

M  INTHOL 

M  7090CLOCK1 
F  CLKON 

F  MAT  I NV 

M  SPLIT 

F  01  FURY 

M  IFNCTN 

M  IDERIV 

M  IlNTGR 

F  LSSS1 

F  MISS 

F  COLABL 

F  CROST 

F  CROSS 

M  FLOATM 

M  MLI2A6 

M  SQRMLI 

F  PWMLIV 

F  MIFLS 

F  MIPLS 

F  LSLINE 

F  LSSS1 

F  WLLSFP 

F  RLSPR 

F  RLSPR2 

F  RLSSR 

M  HLADJ 

M  SHFTR2 

M  SHFTR1 

M  TAMVL 

F  NXALRM 

F  CNTROW 

F  WLLSFP 

F  QACORR 

F  QCNVI.V 

F  QXCORR 

M  XLIMIT 

M  LIMITS 

C  I  Cl  T  IP 
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X  AS  iNTPGPeS  DENSELY  °AC<FD  OFF 
♦OUTPUT  VARIABLES  FIVE  PER 
♦  PLOT  FAST  HORIZONTAL 
SPLOT  FAST  HORIZONTAL 
SPLOT  FAST  VERTICAL 
SPLOT  FAST  VERTICAL 
R0GRAV  AMD  COMMON  SOFF 

SCONTOUR  OF  MATRIX  SUBLET  ON  OFF 
F  INTERVAL  T I mpr  is  ON  MAXING  ON 
SFAST  arbitrary  straight 
sfast  ARBITRARY  STRAIGHT 
FRSION  OF  A  MONOTONE  FUNCTION  BY 
E 

FT  FXD  OR  FlTG  VECTOR  EOUAL  TO  A 
LCAT+NG  SSET 

$  SPACE  CARRIAGE  N 
AN  INDATA-OUDATa  TYPE  TAPE 
TAPE  TO  FRONT  OF  DECK 

scheck  that  variables  from 
o  sfts  of  values  SSET  a 

HINE  ADDRESSES  OF  VARIABLES  IN  A 

SSHUFFLE  A 
SSFT  A 

WRITE  OUTPUT  T AP c  WITH  NORMAL  OR 
TPUT  COLUMN  VECTORS  BY  NORMAL  OR 

SACCESS  TO 

INF  VFCTOR  OUTPUT  WITH  NORMAL  OP 
SOUTPUT  VARIABLES  BY  NORMAL  OR 
OUTPUT  NAMED  VECTOR  BY  NORMAL  OR 
utput  namfd  vectors  by  NORMAL  OR 
BY  PROXY  CAi  L  STATEMENTS 
0  COMMON 

SMOVE  A  VECTOR  TO  A  DIFFERENT 
NT  5  -ORE 

SCOMPUTE  A 

♦shift  vector  elements 

LS  SPFRFORM 

♦SCALE »  CONVERT  flTG.  VFCTCR  to 

SELOAT  any 

ui valent  Hollerith  sconvert 

IN  A  LIST  SCREATE  VECTOR  OF 

OR  ROUND  FLOATING  PT.  NUmrpr  To 
R  SFAST  SQUARE  ELEMENTS  OF  A 

R  SDp  I  NT  OR  Wp I T  E  OUTPUT  TAPE  A 
IDAL  INTEGRAL  OF  FUNCTION  OR  ITS 
AN  INTEGFR  SERIES 
PFLAT ION  OF  TRANSIENT  VFCTORS  OF 
VFRSFO  dot  PRODUCT  of  vectors  of 
VERSFD  DOT  DROOUrT  OF  VECTORS  OF 


SOUTPUT 

A  MATRI 

F 

MOUTAI 

IN  r-  FORMAT 

M 

CSOUT 

ON  SCOPE 

M 

7090LINEH 

ON  SCOPE 

M 

709LINEH 

ON  SCOPE 

M 

7090LINEV 

ON  SCOPc 

M 

709LINEV 

PRINT  OF  MEMORY  USAGE  -  P 

F 

MEMUSE 

PRINTFR 

F 

CONTUR 

REQUESi  TF  NOT 

SCKECK  I 

F 

CLKCN 

SEGMENT  ON  SCOPE 

M 

7090LINE 

SEGMENT  ON  SCOPE 

M 

709LINE 

SI  N  V 
TABL 
$  S 
AND/OR  F 


-LINE 

LINF 
LINE 
L  I  NE 
LINE 
L  I  Nr 
-LINE 
-LINE 
-LINE 
LINF 
LINE 

LINEAR  INTERPOLATION 
slinear  interpolation  IN  A 

LINEAR  SEGMENT 
LINEAR  VECTORS.  FIXED 
LINES  OR  RESTORE  PAGE 
SLIST  AUXILIARY  INFORMATION  FOR 
DATA  DECK  AND  REPOSITION 
fall  within  given  LIMITS 
OF  VARIABLES  TO  ONE  OF  TW 
SCREATE  VECTOR  OF  MAC 
INTEGERS  FROM  1  To  N 
VECTORS  TO  ZERO 
f  ‘RMAT  VECTOR  $ 

Ft  TMATS  SOU 

OR  ORDINARY  FORMAT 
format  SOFFL 

format 

FORMAT  WITH  SPACING  S 
FORMATS  WITH  SPACINGSO 
AND  OPFRATE  SUBROUTINFS 


OF 

OF 


SLIST 
LIST 
LIST 
LIST 
LIST 
LIST 

literal 

LITERAL 

LITERAL 

LITERAL 

literal 

literal 

LITERAL 

slocate 


SLOCATE  ARGUMENT  WITH  RESPECT  T 
LOCAT ION 

LOCATION  WITH  INDEXABLE  ARGUME 
SLOGICAL  SHIFT  FUNCTION 
LOGICAL  SUMCHFCK 
LOGICALLY  LEFT  OR  RIGHT 
LONG  DIVISION  OF  TWO  POLYNCMIA 
MACHINE  INTEGERS  OR  CONVERSELY 

machine  language  integer 

MACHINE  LANGUAGE  INTEGER  TO  EQ 
MACHINE  ADDRESSES  OF  VARIABLES 
MACHINE  INTEGER  STRUNCATE 

MACHINE  LANGUAGE  INTEGER  VECTO 
MACHINE  LANGUAGE  INTEGER  VECTO 
MAGNITUDE  SDEFINITE  TRAPEZO 
SMAP  A  SEQUENCE  OF  NUMBERS  INTO 

MATRICES  scrosscor 

MATRICES  SOOT  PRODUCT  OR  RE 
MATRICES  sdot  product  or  RF 


IFNCTn 
lintri 
SETLIN 
SET  LNS 
CARIGE 

listing 

dadeck 

LIMITS 

CHOOSE 

XLOCV 

SHUFFL 

STZS 

FMTOUT 

CVSOUT 

FNDFMT 

VECOUT 

VRSOUT 

VOUT 

VSOUT 

LOCATE 

IXCARG 

MOVE 

LOC 

LSHFT 

FAPSUM 

SHFTR2 

POLYDV 

fxdata 

floatm 

MLI2A6 

XLOCV 

XFIXM 

SQRMLI 

PWMLIV 

TINGL 

MPSEQ1 

CRSVM 

MDOT  3 

moot 


SRFVFRSE  VFCTOR  OF  MATRICES  F 

OP  4  Symmetric  POSITIVE  DEFINITE  MATRIX  $FaCT  F 

S INVERSE  OF  A  MATRIX  F 

<ED  OFF-L I Nr  SOIJTpUT  A  MATRIX  AS  INTEGERS  DENSELY  PAC  F 

ICATJON  SN  X  M  MATRIX  BY  MX  L  MATRIX  MUlTJPL  F 

NDEX  RY  INTERPOLATION  SFIND  A  MATRIX  COLUMN  WITH  ARBITRARY  I  M 

SFXTRFMAL  VALUES  OF  MATRIX  elfments  M 

SN  X  M  MATRIX  BY  M  X  l  MATRIX  Ml  _  ■  i  PL  I  CAT  I  ON  F 

$  square  matrix  multiplication  m 

FLS  SCONTOUR  A  MATRIX  ON  THE  PRINTER  IN  DEC  I B  F 

SMATRIX  OUTPUT  IN  G  FORMAT  F 

TER  SCONTOUR  OF  MATRIX  SUBSET  ON  OFF-LINE  PRIN  F 

SMATRIX  TRANSPOSE  M 

S SQUARE  MATRIX  TRANSPOSE  M 

TION  FUNCTIONS  SREGION  TO  MAXIMI2E  RATIO  OF  TWO  DlSTF'PU  F 

SNORMALIZE  A  VECTOR  TO  GIVEN  MAXIMUM  VALUE  M 

PENDENCY  FROM  PROBABILITY  DENSlTs^EAN  SQUARE  CONTINGENCY  AN  DE  F 

sremove  the  mean  from  a  fixed  vector  m 

SREMOVE  THE  MEAN  FROM  A  FLOATING  VECTOR  M 

SNORMALIZE  AND  CHANGE  MEAN  OF  A  VECTOR  F 


R  SMOVING  MEAN  SQUARE  AVERAGE  OF  A  VECTO  F 

MON  SOFF-lINE  PRINT  OF  MEMORY  USAGE  -  PROGRAM  AND  COM  F 

SF  ODD-LENGTHED  VFCTOR  ABOUT  ITS  MIDPOINT  SCOLLAP  M 

F  SACCESS  ROUTIN’-  FOR  RAND  CORP.  MILLION  RANDOM  DIGITS  FROM  TAP  F 
sfactcr  power  spectrum  TO  FIND  MINIMUM  PHASE  wavelet  M 

SENABLE  MIXED  EXPRESSIONS  IN  FORTRAN  M 
ONVERT  FORTRAN  INTEGER  VECTOR  TO  ML  I  VECTOR  SFAST  C  M 

POINT  INTEGER  SMULTlPLY  AN  ML  I  VECTOR  BY  A  FORTRAN  FIX^D  M 

SQUICK  CROSSCORRELATION  OF  ML  I  TRANSIENTS  F 

SFAST  COMPARE  TWO  ARBITRARY  MODE  VECTORS  FOR  IDENTITY  M 

VECTOR  EQUAL  TO  A  CONSTANT  (ANY  MODE  I  $SET  ALL  ELEMENTS  OF  M 

constant  or  by  constants  SMODIFY  A  SET  of  VARIABLES  BY  A  m 

IONS  FOR  DAN  I  ELL  SPECTRA  SMODIFY  AUTO-  OR  CROSS-CORREL AT  M 

LITY  DISTRIBUTION  WITH  SPECIFIED  MOMENTS  SGENERATE  PROBA8I  F 

SREREAD  DATA  RECORD  AND  END  FILE  MONITOR  M 

SOPTIONAL  ONLINE  MONITOR  OF  BCD  TAPE  WRITING  M 


ING  BEHAVIOR  SC 

terpolation 

OCAT I  ON 
RS 

OR  CHANGE  SIGN  OF 


SCHECK  VECTOR  FOR  MOMOTONE  INCREASING  OR  DECREAS  M 
SINVERSION  OF  A  MONOTONE  FUNCTION  BY  LINEAR  IN  M 
SMOVE  A  VECTOR  TO  A  DIFFERENT  L  M 
SMOVE  AN  ARBITRARY  SET  OF  VECTO  M 
OF  A  VECTOR  SMOVE»REVERSE»  CHANGE  SPACING*  V 

SMOVE  DATA  BLOCK  M 

SHOVING  AVERAGE  OF  A  VECTOR  F 


STPIANGULAR  AVERAGING*  MOVING  LEFT  OR  RIGHT  END 
A  VECTOR  SMOVING  MEAN  SQUARE  AVERAGE  OF 

INT  VECTOR  SFAST  MOVING  SUMMATION  OF  A  FIXED  PO  M 

BY  A  CONSTANT  SMOVING  SUMMATION  WITH  DIVISJO 

ABSOLUTE  VALUE  INTEGRAL  SMOVING  TRAPEZOIDAL  INTEGRAL  0 

UARES  SMULTI-1NPUT  FILTER  BY  LEAST  S 

SQUARES  SMULTI-INPUT  PREDICTOR  BY  LEAS 


SMOVING  SUMMATION  WITH  DIVISION  M 

smoving  trapezoidal  integral  or  m 
smulti-input  filter  by  least  sq  f 
SMUlTI-INPUT  predictor  by  LEAST  f 


MRVRS 
Mr  ACT 
MATINV 

moutai 
MATML  3 
ARBCOL 
MAXSNM 
MATML  3 

matmli 

CNTRDB 

MOUT 

CONTUR 

MATRA 

MATRA1 

MXRARE 

NMZMG1 

MSCON1 

XREMAV 

REMAV 

NRMVEC 

MVSQAV 

MEVUSE 

KOLA=>S 

getrqi 

factor 

SAME 

I  t  omli 

MLISCL 

OXCQRl 
CMP ARV 
SETKV 

add< 

ADANu 

PRBFIT 

REREAD 

ONLINE 

MONOCK 

IFNCTn 

MOVE 

MOVECS 

MOVREV 

MVBLOK 

MVI NAV 

tamvl 

MVSQAV 
VUVADD 
MVNSUM 
MVNT  IN 
M  I  FLS 
MIDLS 
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smulti-input  sidewards  ITPRAT10 
V  MATRIX  by  M  X  L  MATRIX  MULTIPLICATION 
SSGUARE  MATRIX  MULTIPLICATION 


QTRAN  PIXFD  POINT  INTEGER 
SY  A  SINGLE  FLTG#  oT.  CONSTANT  SMUlTIPLY  ANY  NO.  OF  VARIABLES  F 
RS  f  I  Xcp)  OR  FLOATING  SMUlTIPLY  ELEMENTS  OF  TWO  VECTO  M 

c I XrD  CONSTANT  SMULTIPLY  VECTOR  BY  FLOATING  OR  M 

o\  INTO  POUALLY  LIKcLY  SECTIONS  SNORMAL  DISTRIBUTION  AND  DIVISI  M 
XIMUM  VALUP  SNORMALIZE  A  VECTOR  TO  GIVEN  MA  M 

VECTOR  SNORMALIZE  AND  CHANGE  MEAN  OF  A  F 

N  GIVEN  RANGESFREOUENCY  COUNT  Oc  NUMBER  OF  VALUES  OF  A  SERIES  I  M 
LAST  TERM  SSEARCH  VECTOR  for  NUMBER*  STARTING  FROM  FIRST  or  F 
$T RUNG AT p  OR  ROUND  FLOATING  PT.  NUMBER  To  MACHINE  INTEGER  M 

SMAP  A  SEQUENCE  OF  NUMBERS  INTO  AN  INTEGER  SERIES  M 

PR  portqan-ii  integer  IS  EVEN  OR  odd  sdetermine  wheth  M 

split  a  VPCTOR  INTO  ITS  EVEN  AND  ODD  PARTS  (OR  INVERSE)  $  M 

'‘OSINF  AND/OR  SINE  TRANSFORMS  OF  ODD-LENGTH  SERIES  $F AST  F 

v I  Don  * SCOLLAPSE  ODD-LENGTHED  VECTOR  ABOUT  ITS  M 
SINE  TRANSPORTS  from  2  or  4  even-odd  parts  sfast  COSINE  and/or  m 
"AL  OR  LITPOAL  FORMAT  SOFFLlNE  VECTOR  OUTPUT  WITH  NOR  F 

fl  T  p I X  AS  INTEGERS  DpNSrLY  PACKED  OFF-LINE  SOUTPUT  A  M  F 

-  oroGRAm  AND  COMMON  SOEF-LlNE  PRINT  OF  MEMORY  USAGE  F 

tCONTnUR  OF  MATRIX  SUBSET  ON  OFF-LINE  PRINTER  F 


SMULTIPLY  AN  ML  I  VECTOR  BY  A  FO  M 


SFAST  COSINE  TRANSFORMS  OF  ONE-SIDED  AUTOCORRELATIONS 
RANGF  SCOLLAPSE  ONE-SIDED  VECTOR  INTO  SMALLER  M 

TING  SOPTIONAL  ONLINE  MONITOR  OF  BCD  TAPE  WR I  M 

ALL  STATpmp.nTS  SLOCATE  AND  OPERATE  SUBROUTINES  BY  PROXY  C  M 

f FD  DATA  VALUES  S I NTERPOLAT ION  OPERATOR  FOR  1  To  4  EVENLY  SPA  M 
ONP  SUPPOUTINP  REPEATEDLY  SOPFRATE  SEVERAL  SUBROUTINES  OR  M 

I Nc  TO  GIVPM  ACCUPACY  SFIND  OPERATION  TIME  OF  NEXT  SUBROJT  M 

*F  AST  RFVFRSF  STORAGE  ORDER  OP  A  VECTOR  M 

ode  SUBROUTINE  DlSDLA  SVARIABlE  ORIGIN  FORMAT  GENERATOR  FOR  SC  M 
po  TRANSFORM  WITH  ARBITRARY  TIME  ORIGIN  SQUICK  INVERSE  EOJRI  E 
RF  TR  ANS I CNT  WITH  ARBITRARY  TIME  ORIGINSEAST  EOURIFR  TRANSFORM  F 
ILIARY  INFORMATION  FOR  AN  I NOATA-OUDATA  TYPE  TAPE  SLIST  AUX  F 

TIALIZED  FOR  ADDING  TO  AN  INDATA-OUDAT A  TAPE  SINI  F 

sterminate  an  i ndata-oudata  tape  f 

NSFLY  PACKED  OFF-LINF  SOUTPUT  A  MATRIX  AS  INTEGERS  DE  E 


nsfly  packed  off-linf 
L  OR  LITERAL  FORMATS 


FRAL  FORMAT  VECTOR  fWRI 

IN  G  FORMAT 

OR  LITERAL  FORMAT  WITH  SPACING 


SOUTPUT  A  MATRIX  AS  INTEGERS  DE  E 
SOUTPUT  COLUMN  VECTORS  BY  NORMA  M 
^MATRIX  OUTPUT  IN  G  FORMAT  F 

SWRITE  OUTPUT  TAPE  WITH  NORMAL  OR  LIT  F 
SOUTPUT  VARIABLES  FIVE  PER  LINE  M 
ACING  SOUTPUT  NAMED  VECTOR  BY  NORMAL  c 


or  literal  formats  with  sdacingsoutput  named  vectops  BY  NORMAL  M 
format  of  a  succeeding  INPUT  or  output  statement  sreplace  the  m 
INTEGER  VECTOR  SPRINT  or  WRITE  OUTPUT  TAPE  A  MACHINE  LANGUAGE  F 
LITERAL  FORMAT  SOUTPUT  VARIABLES  Bw  NORMAL  OR  M 

FORMAT  SOFFLlNE  VECTOR  OUTPUT  WITH  NORMAL  OR  LITERAL  F 

AS  HOLLERITH  VECTOR  SPACK  UP  FORTRAN  INTEGER  VECTOR  M 

R  SSCALE  AND  FIX  DATA  VECTOR*  PACK  N  DATA  POINTS  PER  REGISTE  M 
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PUT  A  MATRIX  AS  INTEGERS  DENSELY 

sunpack  and  rescale  A 

PACE  CARRIAGE  N  LINES  DR  RESTORE 

d  or  floating  vector  elements  in 
variables  for  equality  $ compare 
transforms  from  2  OR  4  even-odd 
T  A  VECTOR  into  ITS  EVEN  AND  ODD 
OR  REVERSE  SAMPLITUDE  AND 

r  power  spectrum  to  find  minimum 
cope 


FAST 
FAST 
FAST 
OF  A 


COPE  SPLOT 

pE  SPLOT 

p£  SPLOT 

VECTORS  SPRINTER  PLOT 

ps  SPRINTER-PLOT 

smultiple  frame  scope  plots 

SFTND  CONTOUR  LEVELS  FOR  PLOTTING 
SBAR  GRAPH  PLOTTING 
SCUBIC  CURVE  SCOPE  PLOTTING 
SCUBIC  CURVE  SCOPE  PLOTTING 
SHISTOGRAM  PLOTTING 


PACKED  OFF-LINE  $OUT 

PACKED  DATA  VECTOR 
PAGE  $S 

PAIRS  SDIFFERENCE  FIXE 

PAIRS  OF  VARIABLES  OR  A  SET  OF 
PARTS  SFAST  COSINE  AND/OR  SINE 
PARTS  (OR  INVERSE)  SSPLI 

PHASE  FROM  REAL  AND  IMAGINARY. 
PHASE  WAVELET  SFACTO 

SPLOT  FAST  HORIZONTAL  LINE  ON  S 

HORIZONTAL  LINE  ON  S 

VERTICAL  LINE  ON  SCO 
VERTICAL  LINE  ON  SCO 
set  of  equal  length 
of  arbitrary  set  of  vecto 
of  vector  sets 

A  ROW  of  DATA 
FOR  SUBROUTINE  GRAPH 
FOR  SUBROUTINE  GRAPH 
FOR  SUBROUTINE  GRAPH 
FOR  SUBROUTINE  GRAPH 


t  ,  _  SPLURALIZE  THE  NEXT  SUBROUTINE 

5  5pT<  AND  SET VEC  SPLURALIZED  FORMS  OF  SUBROUTINE 


CH  EXACTLY  FITS  3  EQUALLY  SPACED 
AND  FIX  DATa  VECTOR.  PACK  N  DATA 
ER  SEQUENCE  IN  GROUPS  OF  FIVE  AS 

SCOMPLEX 

HE  POWER  SERIES  SQUARE  ROOT  OF  A 


AND  COMPLEX  ROOTS 
S  REAL  AND  -COMPLEX  ROOTS 
NTS  FOR  REAL  ARGUMENTSEVALUATE 
SPERFORM  LONG  DIVISION  OF  TWO 

SFACTOR  a  symmetric 
phase  wavelet  sfactor 

SRAISE  VECTOR  TO  POWER  OR  SUM 
NS  FROM  BASE  SRAISE  VECTOR  TO 

polynomial  sfind  the 

SMULTI-INPUT 

son  least  square  error  filter  or 

NS I ON  SREALIZABLE  LEAST  SQUARES 
NSIONS  SREALIZABLE  LEAST  SQUARES 
M  AND  COMMON  SOFF-L INE 

achine  language 


POINTS  SFIND  QUADRATIC  WHI 

POINTS  IER  REGISTER  SSCALE 
POKER  HANDSEVALUAT ION  OF  INTEG 
POLYNOMIAL  EVALUATION 

SFIND  T 

ROOT  FINDER 
synthesis  FROM  real 

SYNTHESIZED  FROM  IT 
WITH  REAL  COEFFICIE 
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SPOLYNOMIAL 
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SPOLYNOMIAL 
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LEAST  SQUARES 

swiener-levin 

RECURSION.  1-DIME 
RECURSION.  2-DIME 


POWER  SERIES 
PREDICTOR  BY 
PREDICTOR 
PREDICTOR  BY 
PREDICTOR  BY 


PRINT  OF  MEMORY  USAGE  -  PROGRA 


INTEGFP  VECTOR  SPRINT  OR  WRITE  OUTPUT  TAPE  A  M 

OUR  OF  MATRIX  subset  on  off-line  printer  scont 

G  3-DIGIT  INTEGERS  SLABEL  PRINTER  COLUMNS  WITH  INCREASIN 

scontour  a  matrix  on  the  printer  in  decibels 

^CT0RS  SPRINTER  plot  OF  A  SET  OF  EQUAL 

.compStIWsou.pe  fop  const  ant  *probabi^ity^case*R^TRARY  SET 
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CONTINGENCY  and  dependency  from  probability  DENSI TJMEAN  square  f  msconi 

VARIATE  EXCEEDS  A  VALUE  SPROBAB  I L I T  Y  THAT  A  CH I -SQUARFD  F  KIINTl 

SFRIES  AT  GIVEN  LAG  SSECODN  PROBABILITY  DENSITY  OF  INTEGER  F  PROB2 

SPECIFIED  MOMENTS  $GENERATr  PROBABILITY  DISTRIBUTION  WITH  F  PRBFIT 

$D I V  IDE  THE  x  AXIS  INTO  EQUALLY  PROBABLE  RANGES  F  GRUP2 

S  ^DISPLACED  DOT  PRODUCT  Q?  2-DIMENSIONAL  ARRAY  F  DOTP 

SFAST  DOT  PRODUCT  OF  TWO  VFCTORS  M  FOOT 

SDOT  PRODUCT  no  R^VE^SED  DOT  PRODUCT  OF  VECTORS  OF  MATRICES  F  MDOT3 

SDOT  PRODUCT  PR  REVERSED  DOT  PRODUCT  OF  VECTORS  OF  MATRICES  F  MDOT 

T  OF  VECTORS  Of  MATRICES  SCOT  PRODUCT  O’  REVERSED  DOT  PRODUC  F  MDOT3 

T  OF  VECTORS  OF  MATRICFS  SDOT  PRODUCT  OR  REVERSED  DOT  PRODUC  F  MDOT 

NTS  5VECTOR  DOT  PRODUCT  WITH  ARBITRARY  INCREME  M  DOTJ 

VISION  Bv  CONSTANT  SDOT  PRODUCT  OF  TWO  VECTORS  WITH  DI  M  VDOTV 

OCATF  AND  OPERATE  SUBROUTINES  BY  PROXY  CALL  STATEMENTS  $L  M  LOCATE 

ABLE  SQUADRATIC  INTERPOLATION  IN  A  T  F  QINTR1 

EQUALLY  SOACED  POINTS  SFIND  QUADRATIC  WHICH  EXACT [_Y  FITS  3  M  OUFIT1 

TRANSIENTS  SQUICK  CROSSCORRELATION  OF  Ml  I  F  QXCOR1 

M  WITH  APBITRAPY  Time  ORIGIN  SOUICK  INVERSE  FOURIER  TRANSFOR  F  QIFURY 

OWER  OF  DEVIATIONS  FROM  BASE  SRAISE  VECTOR  TO  POWER  OR  SUM  P  M  POWER 

TS  FROM  Tape  SACCESS  ROUTINE  FOR  RAND  CORP.  MILLION  PANDOM  D I G I  F  6ETRD1 

S  ROUTINE  FOR  RAND  COPP.  Million  RANDOM  DIGITS  FROM  TAPE  SACCES  F  GETRDl 

SE  ONE-SIDED  VECTOR  INTO  SMALLER  RANGE  SCOLLAP  M  COLAPS 

R  OF  VALUES  OF  A  SERIES  IN  GIVE.-:  RANGE SFRFQUENCY  COUNT  OF  NUMBE  M  FRQCT? 

IFIED  ACCURACY.  OF  GIVEN  PROGRAM  ^ANGE  SREAL  TIME*  To  SPEC  M  ?o9TIMA2B 

ONE  VECTOR  FROM  ANOTHER  WITH  NEW  RAt-'GE  ANO  INCREMENT  SCRFATE  M  NURINC 

THE  X  AXIS  INTO  EQUALLY  PROBABLE  RANGES  $DIVI.)E  F  GRUP2 

TIONS  SREGION  TO  MAXIMIZE  RATIO  OF  TWO  DISTRIBUTION  FUNC  F  MXR ARE 

T  SREAD  DA  .'A  IN  GENERALIZED  FORMA  F  RDATA 

RY  Tape  SREAD  EVERY  N-TH  WORD  FROM  BIN  A  N  PACDAT 

SAMPLITUDE  AND  PHASE  FROM  REAL  AND  IMAGINARY*  OR  REVERSE  M  AMPHZ 

ING  70P0  INTERVAL  CLOCK  SEOR  REAL  TIME  TIMING  IN  SECONDS  US  M  7090CLOCK1 

SPOLYNOMIAL  SYNTHESIS  FROM  REAL  AND  COMPLEX  ROOTS  F  POLYSN 

fPOLYNOMIAL  SYNTHESIZED  FROM  ITS  REAL  AND  COMPLEX  ROOTS  F  PLYSYN 

OMIAL  WITH  REAL  COEFFICIENTS  FOR  REAL  ARGUM£NT$£VALUATE  A  POLYN  F  POLYEV 

UMENTSEVALUATE  A  POLYNOMIAL  WITH  REAL  COEFFICIENTS  FOR  REAL  ARG  F  POLYEV 

CY.  OF  GIVEN  PROGRAM  RANGE  SREAL  TIME*  TO  SPECIFIED  ACCURA  M  709TIMA2B 

CTQR  BY  RECURSION.  2-DIMENSIONS  SREAlIZABlE  LEAST  SQUARES  PREDI  F  RLSPR2 

CTOR  BY  RECURSION.  1-DIMENSION  SREALIZABLE  LEAST  SQUARES  PREDI  F  RLSPR 

R  BY  RECURSION  SREALIZABLE  LEAST  SQUARES  SHAPE  F  RLSSR 

SREREAD  DATA  RECORD  AND  END  FilE  MONITOR  M  REREAD 

S I T I ON  Tape  STEST  if  NEXT  TAPE  RECORD  IS  END  OF  FILE  AND  REPO  M  ZEFBCD 

SSKIP  FORWARD  0»  BACKWARD  OVER  RECORDS  ON  TAPE  M  RSKIP 

STWO-DImFNSIONAL  FILTEP  BY  RECURSION  F  FIRE2 

ALIZABLE  LEAST  SQUARES  SHAPER  BY  RECURSION  SRE  F  RLSSR 

ZABLE  LEAST  SQUARES  PRFDICTQR  BY  RFCURSION*  1-DIMFNSION  SREAL I  F  RLSPR 

ZARLE  LEAST  SQUARES  PREDICTOR  BY  RECURSION*  2-DIMENSIONS  SREALI  F  RLSPR2 

ctor  through  a  constant  sreflect  a  fixed  or  floating  ve  m  reflec 

O  DISTRIBUTION  functions  sregion  to  maximize  RATIO  of  tw  f  mxrare 

a  VFCTOR,  pack  N  data  POINTS  PER  REGISTER  SSCALE  and  fix  DAT  M  PAKN 
PCTnp  SREMOVE  THE  MEAN  FROM  A  FIXED  V  M  XREMAV 


68 


G  VECTOR  SREMOVE  the  MEmN  from  a  floatin 

DING  INPUT  OR  OUTPUT  STATEMENT  fREPLACE  THE  FORMAT  OF  A  SUCCEE 
C<  SLIST  DATA  DECK  AND  REPOSITION  TAPE  TO  FRONT  OF  DE 

T  TaPF  RECORD  IS  FMD  OF  FILE  AND  reposition  tare  $test  IF  nex 

E  MONITOR  SREREAD  DATA  RECORD  AND  END  FIL 

FRVAL  TIMER  IS  ON  MAKING  ON-LINE  REQUEST  IF  NOT  SCHECK  IF  INT 

SUNPACK  AND  RESCALE  A  PACKED  DATA  VECTOR 
ICAL  FILTER  WITH  GIVEN  AMPLITUDE  RESPONSE  SGENERATE  SYMMFTR 
$ S°ACE  CARRIAGE  N  LINES  OR  RESTORE  PAGE 
AL  Tape  SFAST  AMD  CONVENIENT  RETRIEVAL  OF  DATA  FROM  A  SPECI 
F  FIRST  SRETURN  N-TH  ARGUMENT  BEYOND  TH 

S  PRODUCED  BY  SPLIT.  SFAST  REVERSAL  OF  SPECIAL  VECTORS  .A 

HASE  FROM  REAL  AND  I  MAG  I  NAP Y  *  OR  REVERSE  SAMPLITUDE  AND  P 

ANGE  SIGN  OF  A  VECTOR  SMOVE .REVERSE.  CHANGE  SPACING*  OR  CH 

SREVERSE  VECTOR  OF  MATRICES 

IN  PLACE  SREVERSE  A  VECTOR  ELSEWHERE  OR 

TOR  SFAST  REVERSE  STORAGE  ORDER  OF  A  VEC 

S  HE  MATRICES  SDOT  PRODUCT  OR  REVERSED  DOT  PRODUCT  OF  VECTOR 

S  ^F  maTojcfS  SDOT  PRODUCT  OR  REVERSED  DOT  PRODUCT  OF  VECTOR 


SHOLLFRITh  LEFT  ADJUST  OR  RIGHT  ADJUST  FUNCTION 
ELEMENTS  A» I THMPT I  CALL Y  LEFT  OR  RIGHT  $SMIFT  VECTOR 

TCTOR  ELEMENTS  LOGICALLY  LEFT  OR  RIGHT  SSHIFT  V 

NGULAR  AVERAGUG.  MOVING  LEFT  OR  RIGHT  END  STRIA 

SE  OR  FROM  TRUE  AVERAGE  SR.M.S.  DEVIATION  FROM  GIVEN  BA 

SPOLYNOMIAL  ROOT  finder 

UNDING  sSQUAPE  ROOT  OF  A  FIXED  VECTOR  WITH  PO 

S SQUARE  ROOT  OF  A  FLOATING  VECTOR 
SFIND  The  POWER  series  SQUARE  ROOT  of  a  POLYNOMIAL 
SYNTHESIS  FROM  RFAL  AND  COMPLEX  ROOTS  SPOLYNOMIAL 

FSIZFD  FROM  ITS  RFAL  AND  COMPLEX  ROOTS  SPOLYNOMIAL  SYNTH 

NWARDS  AN  ARBITRARY  AMOUNT  SROTATE  A  VECTOR  UPWARDS  OR  DOW 

ISYMMETRIC  2-DIMENSIONAL  ARRAY  srotate  centro-symmetric  OR  ant 
SRHUND*  ROUND  UP.  OR  ROUND  DOWN  A  FLOATING  VECTOR 

achine  intfger  struncate  or  round  floating  pt,  number  to  m 

OR  To  NEAREST  ^LTg.  PT,  INTEGER  SROUND  FLTG.  PT.  NO.  UP.  DOWN. 

A  FLOATING  VECTOR  SROUND*  ROUND  UP.  0°  ROUND  DOWN 

TING  VECTOR  SROUND*  ROUND  Up.  OR  ROUND  DOWN  A  FLOA 

FLOATING  VFCTOR  WITH  OR  WITHOUT  ROUNDING  SFIX  A 

WO  FIXFD  VECTORS  WJTh  OR  WITHOUT  ROUNDING  SDIVIDF  ELEMENTS  OF  T 
UARE  ROOT  OF  A  FIXFD  VICTOR  WITH  ROUNDING  SSQ 

rXD  PT  DIVIDF  WITH  TRUNCATION  OR  ROUNDING  TO  FORTRAN-11  INTEGES 
ND  CONTOUR  LEVELS  FOR  PLOTTING  A  ROW  OF  DATA  SFI 

DEFINITE  INTEGRAL  BY  TRAPEZOIDAL  RULE  SIN 

MACHINE  INTEGERS  OR  CONVERSELY  foCALE *  CONVERT  FLTG.  VECTOR  TO 
K  N  DATA  POINTS  PER  REGISTER  SSCALE  AND  FIX  DATA  VECTOR.  PAC 
RAL  AND/OR  INTEGRATE  SUNSCALE  OR  SCALE  VECTOR  FOR  SIMPSON  INTEG 
COPE.  CLIPPING  EXCESSIVE  VALUES  SSCALE  VECTOR  TO  INTEGERS  FOR  S 
OR  GREATER  THAN  GIVEN  VALUESFAS7  SCAN  VECTOR  FOR  ELEMENT  EQUAL 
OF  VALUES  ALL  AROVF  GIVEN  LEVELSSCAN  VECTOR  FOR  POSSIBLE  BLOCK 
5ADVANCE  FILM  FRAME  ON  SCORE 
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SADVANCF  film  Fpamf 

ON 

SCOPE 

M 

709FRAMF 

BITpa^Y  STDAIGHT  line  SFGMFNT 

ON 

SCOPF 

SFAST 

AR  A 

7090L  INF 

B l Tp AR Y  STRAIGHT  LtNF  SEGMENT 

CN 

SCOPE 

SFAST 

AR  M 

7C°L INE 

$°LOT  FAST  HORIZONTAL  LINE 

ON 

SCOPE 

M 

7090L INEH 

SPLOT  FAST  HORIZONTAL  LINE 

ON 

SCOPE 

M 

709LINEH 

«dloT  caST  VERTICAL  LINC 

ON 

SCOPE 

M 

7090LINEV 

^°LnT  EAST  VEo  T I  CAL  LINE 

ON 

SCOPE 

M 

709LINEV 

SWo I T E  HOLI  PP ITH  TEXT 

ON 

SCOPE 

M 

7090DISPLA 

f  WR  T  T  E  HTLLCRITH  TEXT 

ON 

SCOPE 

M 

7Q9DI SDL A 

SMULTIPLE  FRAME 

SCOPE  PLOTS  OF  VECTOR 

SETS 

F 

GRAPH 

co  a  pm  SCUBIC  CURVE  SCOPE 

"'RAS>H  SCUBIC  CURVE  SCOPE 

ABLF  Origin  FORMAT  GENERATOR  FOR  SCOPE 
e5  SS C A Lc  VECTOR  TO  INTEGERS  FOP  SCO^Ei 

$ 

TING  cqqv  fjpST  OP  LAST  TERM 

integer  SFPIES  AT  given  LAG 

nC.<  ecr^o  PFAL  TIME  Timing  IN 

A  NO  DIVISION  INTO  EQUALLY  LI<FLY 
FFfiCT  ARBITRARY  STPAIGMT  line 
«FA'T  AQRITOARY  STRAIGHT  LINE 
ap  f i_  T g  VECTOR  EQUAL  TO  A  LINEAR 
«tfST  THE  CONDITION  OE  ANY 
SOFT  HOLLERITH  DATA  FROM  CALLING 
TECiER  SERIES  $MAP  A 

PO<pR  HANDSEVALUATION  OF  INTEGER 
FORTRAN  VARIABLE  LENGTH  CALLING 
SFAST  FUNCTIONS  FOR 
op  SlNF  TRANSFORMS  OF  RDD-LENGTH  SERIES 
'JFNrc  OF  NUMBERS  INTO  AN  INTEGER  SERIES 
Y  C^UNT  OF  NUMBER  qf  VALUES  OF  A  SFRIFS 
TIOO'S  FOR  LONG*  LIMITED  ACCURACY  SERIES 
TIONS  FOR  LONG.  LIMITED  ACCURACY  SERIES 
TICNS  FOP  LONG.  LIMITED  ACCURACY  SERIES 
N  PROBABILITY  DENSITY  OF  INTEGER  SERIES 
SFAST  CORRELATIONS  FOR  LONG  SERIES 

M I  a  l  $find  the  po*(er  series 

OF  Two  SETS  OF  VALUES  $SET  A 


plotting  for  subroutine 
plotting  for  subroutine 
subroutine  displa  svari 

CLIPPING  EXCESSIVE  VALU 
SSEARCH  A  VECTOR  FOR  A  VALUE 
SSEARCH  VECTOR  FOR  NUMBER.  STAR 

ssecodn  probability  density  of 

SECONDS  USING  7090  INTERVAL  CL 

SECTIONS  SNORMAL  DISTRIBUTION 

SFGMFNT  ON  SCOPE 

SEGMENT  ON  SCOPE 

SEGMENT  $  SET  FXD 

SENSE  SWITCH 

SEQUENCE 

SEQUENCE  OF  NUMBERS  INTO  AN  IN 
SEQUENCE  IN  GROUPS  OF  FIVE  AS 
SEQUENCES  senable 

SEQUENTIAL  SINES  AND  COSINES 


IN 


AT 

OF 


OR  BY  CONSTANTS  SMODIFY  a  SET 

SCOMPARF  daidS  OF  VARIABLES  OR  A  SET 
SMOVE  AN  ARBITRARY  SET 

SSET 

AL  To  A  CONSTANT  I  ANY  MODFI  SSET 

TO  SPOARATr  Val'JFS  (FXD  OR  FLTGSSET 
TO  A  SINGLF  VALUF  (FXD  OR  FlTgjsSET 
0  SFPARATp  VALUES  (PXD  op  FLTG)  $SFT 
0  A  LINEAR  SEGMENT  $  SET 

OR  FLOATING  $SET 

SPRINTER  PLOT  OF  A  SET 
SPRINTFR-9L0T  OF  arbitrary  SET 


SFAST  COSINE  AND/ 
SMAP  A  SEQ 

given  rangesfrequenc 

SFAST  AUTOCORRELA 
SFAST  CONVOLU 
SFAST  CROSS-CORRELA 
GIVEN  LAG  SSECOD 

FIXED  POINT  INTEGERS 
SQUARE  ROOT  OF  A  POLYNO 
LIST  OF  VARIABLES  To  ONE 
OF  VARIABLES  BY  A  CONSTANT 
OF  VARIABLES  FOR  EQUALITY 
OF  VECTORS 

A  LIST  OF  VECTORS  TO  ZERO 

all  elements  of  vector  equ 

ANY  NO.  OF  VARIABLES  EQUAL 
ANY  NO.  OF  VARIABLES  EQUAL 
ANY  NO.  OF  VECTORS  EQUAL  T 
FXD  OR  FLTG  VECTOR  EQUAL  T 
LINEAR  VECTORS.  FIXED  AND/ 
OF  EQUAL  LENGTH  VECTORS 
OF  VECTORS 
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TO 


VEN  VALUFS  $SET  VARIABLES  OR  VECTORS  TO  GI 

SFAST  SET  VFCTOR  TO  ZERO 

IPLF  FRAME  SCOPE  PLOTS  OF  VECTOR  SETS  SMULT 

LIST  OF  VARIABLES  TO  ONE  OE  TWO  SETS  OF  VALUES  SSET  A 

SPLURALIZEO  FORMS  OF  SUBROUTINES  SET*  AND  setvec 
FD  FORMS  OF  SUBROUTINES  SET*  AND  SETVEC  SPLURALIZ 

S  FOR  INCREMENTING.  TESTING.  AND  SETTING  SHYBRID  SUBPROGRAM 

SLEAST  SQUARES  SHAPER  BY  SIDEWAYS  ITERATION 

srealizablf  least  squares  shaper  by  recursion 

slogical  shift  FUNCTION 

ically  left  or  right  sshift  vector  elements  arithmet 

y  left  or  right  sshift  vector  elements  logicall 

m  1  to  n  sshuffle  a  list  of  integers  fro 

$MULTi-INPUT  sidewards  ITERATION 
SLEAS'i  squares  shaper  by  sideways  ITERATION 
ENTS  SFORM  A  VECTOR  BY  SIFTING  ANOTHER  AT  EVEN  INCREM 

schange  all  sign  bits  of  a  vector 
VERSE.  CHANGE  SPAC.NG.  OR  CHANGE  SIGN  OF  A  VECTOR  SMOVE.RE 

VARIABLES  OR  0  IF  SAME  INCLUDING  SIGN  SSIGN  OF  DIFFERENCE  OF  2 
LES  OR  0  IF  SAME  INCLUDING  SIGN  SSIGN  OF  DIFFERENCE  OF  2  VAR  I AB 
LUES  OF  A  VECTOR  SFIND  SIGNED  OR  UNSIGNED  EXTREMAL  VA 

ATE  SUNSCALE  OR  SCALE  VECTOR  FOR  SIMPSON  INTEGRAL  AND/OR  INTEGR 
EFMINANT  EVALUATION  ^SOLUTION  OF  SIMULTANEOUS  EQUATIONS  AND  DET 
R  FLOATING  SGENFraTF  COSINE  OR  SINE  HALF-WAVE  TABLES.  FIXED  0 
EN-ODD  PARTS  SFAST  COSINE  AND/OR  SINE  TRANSFORMS  FROM  2  OR  4  EV 

SERIES  SFAST  COSINE  AND/OR  SINE  TRANSFORMS  OF  ODD-LENGTH 

LATION  FUNCTIONS  SFAST  COSINE.  SINE  TRANSFORMS  OF  CROSS-CORRE 
SFAST  FUNCTIONS  FOR  SEQUENTIAL  SINES  AND  COSINES 
SFAST  MAKE  INDEX  (BY  INCREASING  SIZE)  OF  ELEMENTS  IN  A  VECTOR 
FILES  ON  TAPE  SSKIP  FORWARD  OR  BACKWARD  OVER 

RECORDS  ON  TAPE  SSKIP  FORWARD  OR  BACKWARD  OVER 

ORE  PAGE  SSPACE  CARRIAGE  N  LINES  OR  RE5T 

SFAST  EVALUATE  CUBIC  FOR  EVENLY  SPACED  ARGUMENTS 
AT  ION  OPERATOR  FOR  1  TO  4  EVENLY  SPACED  DATA  VALUES  S INTERPOL 
BIC  WHICH  EXACTLY  FITS  4  FQUALLY  SPACED  POINTS  SFIND  CU 

ECTOR  SMOVF.ofVFRSE*  CHANGE  SPACING.  OR  CHANGE  SIGN  OF  A  V 

ROSSCORRELAT I  ON  OF  2-DIMENSIONAL  SPATIAL  ARRAYS  SSPATIAL  C 

DIMENSIONAL  SPATIAL  ARRAYS  SSPATIAL  CR053C0RRELATI0N  OF  2- 

SFAST  TWO-DIMENSIONAL  SPATIAL  SPECTRUM 
R  CROSS-CORRELATIONS  FOR  DANIELL  SPECTRA  SMODIFY  AUTO-  0 

SHIGH  SPEED  24  POINT  SPECTRUM 
SHIGH  SPEED  24  POINT  SPECTRUM 

wavelet  sfactor  lower  spectrum  to  find  minimum  phase 

SFAST  TWO-DIMENSIONAL  SPATIAL  SPECTRUM 

SHIGH  SPEED  24  POINT  SPECTRUM 
SHIGH  SPEED  24  POINT  SPECTRUM 

DER  CUBIC  INTERPOLATION  SHI-SPEED  EXPANSION  OE  A  VECTOR  UN 

SPECIAL  VECTORS  .AS  PRODUCED  BY  SPLIT.  SEAST  REVERSAL  OE 

ND  ODD  PAPTS  (OR  INVERSE)  SSPLlT  A  VECTOR  INTO  ITS  EVEN  A 

FORTRAN  INTfgFRS  SSPRFAD  OUT  HOLLERITH  VECTOR  AS 
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SETK 

STZ 

GRAPH 

CHOOSE 

SETKP 

SETKP 

INDEX 

LSSS1 

RLSSr 

LSHFT 

SHFTR1 

SHFTR2 

SH'JFFL 

MISS 

LSSS1 

SIFT 

CHS  I GN 

MOVREV 

XACTEQ 

xacteq 

MAXSN 

SMPSON 

SImEQ 

costbl 

COSP 

COSIS1 

XSPECT 

SEQSAC 

SIZEUP 

FSKIP 

RSKIP 

CARIGE 

FASCUB 

INTOPR 

CUFIT1 

MOVREV 

SPCOR2 

SPCOR2 

PLANSP 

ADANL 

ET24  -II 

FT24 

FACTOR 

PLANSP 

FT24  -II 

FT24 

EXPAND 

CHPRTS 

SPLIT 

HVTOIV 
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NCY  From  OROBABILT  TY 
Y  CASE 


i'  DENS  I  T ?ME  AN  SQIJ AO *  CON T  1  NC-ENCY  ANl;  DEPENDE  F 

scompute  chi —Square  fop  constant  probabilit  f 
SSOUaRP  matrix  MULTIPLICATION  m 
SSQUARP  MATRIX  TRANSPOSE  M 

$MOV I  NO  VEAN  SQUARE  AV^RAQP  OF  A  VECTOR  F 

CONST ANTsSUM  SqUARF  pjf.  qf  F^Tr,  VFCTQP  m 


m  aNOTHE0  OR  FROM  a  CONST ANTsSUM  GqUARF  p  I  f  ,  OF  FlTp  VFCTQP  FRO  M 
M  ANOTHER  Or  FROM  a  CONSTanTsSUM  SQUARE  DIF.  OR  FXD.  VECTOR  FRO  M 
VNGUAGF  INTEC, FR  VECTOR  SFAST  SQUARE  ELEMENTS  OF  A  MACHINF  L  M 

vECTOR  $  SQUARE  ELEMFNT  S  OF  FXD  OR  FLTG  M 

OR  SWI ENFR-LEV INSON  LEAST  SQUARE  FRROR  F I L TFR  QR  PRFDICT  F 

WITH  POUNDING  SSQUARF  ROOT  OF  A  FIXED  VECTOR  M 

OR  $  SQUARE  ROOT  OF  A  FLOATING  VfcT  M 

SFIND  The  POWER  SERIES  SQUARE  ROOT  OF  A  POLYNOMIAL  F 


FIXED  VECTOR  M 
FLOAT ing  vfct  M 


FXD  VECTOR 

smult i-inp 


SFIND  i HE  POWER  SERIES  SQUARE  ROOT  OF  A  POLYNOMIAL 
SPRCBAQILITY  THAT  A  CHI-SQUARED  VARIATF  EXCEEDS  A  ValU 


$ sum  the  squared  elements  of 

RfLTFR  BY  LEAST  SQUARES 


FLTG  OR 


$MULT I-INPUT  PRFDICTOR  BY  LpAST  SQUARFS 

SLEAST  SQUARES  LINE 


RATION 
*  1-DImenSIC 


SLEAST  SQUARES  SHAPER  BY  SIDEWAYS  I TE 

srfal iz able  lfast  squares  predictor  by  recursion 


2-DIMENSIONS  SRFALIZaBLF  LRAST  squares  predictor  by  recursion 
SRFALIZABLF  LEAST  SQUARES  SHAPER  BY  RFCUR5ION 


OF  A  SUCCEEDING  INPUT  OR  OUTPUT  STATEMENT  f REPLACE  THE  FORMAT 
PEPATE  SUBROUTINES  BY  PROXY  CALL  STATEMENTS  SLOCATE  AND  0 

IXED  POINT  SDELTA  FUNCTION  AND  STEP  FUNCTIONS.  FLOATING  AND 
SFIND  LENGTH  OF  COMMON  STORAGE 
SFAST  AND  CONVIENT  DATA  STORAGE  ON  TAPE 

SFAST  RRVFRSE  STORAGE  ORDER  OF  A  VECTOR 


fments 

REPEATEDLY 


VECTORS 

ANOTHER  OR  from 
XFD  VECTOR 


SFAST  RRVFRSE  STORAGE  ORDER  OF  A  VECTOR 
SLOCATF  AND  OPERATE  SUBROUTINES  BY  PROXY  CALL  STAT 
^OPERATE  SEVERAL  SUBROUTINES  OR  ONE  SUBROUTINE 
SPLUdalIZED  FORMS  OF  SUBROUTINES  SFT«C  AND  5ETVEC 


SADD  OR  SUBTRACT  TWO  FLOATING  OR  FIX FD  M 
CONSTANT  S5UM  DIFFERENCE  OF  VECTOR  FROM  M 

SSUM  ELEMENTS  OF  FLOATING  OR  FI  M 


SRAISE  VECTOR  TO  POWER  OR  SUM  POWER  OF  DEVIATIONS  FROM 


c  I X ED  POINT  VEC  M 


FROM  ANOTHER  OR  FROM  A  CONSTANT$SUM  SQUARE  DIF.  OF  FLTG  VECTOR  M 

FROM  ANOTHER  OR  FROM  A  CONS T ANTS SUM  SQUARE  DIF.  OR  FXD.  VECTOR  M 

FLTG  OR  FXD  VECTOR  SSUM  THE  SQUARED  ELEMENTS  OF  A  M 

SCOMPUTE  A  LOGICAL  SUMCHECK  M 

ED  VECTOR  $  INTEGRATED  SUMMATION  OF  a  FLOATING  OF  FIX  M 

ING  BLOCKS  OF  CONSTANT  LENGTH  SSUMmaTION  OF  VECTOR  OVER  ABUTT  M 
TOR  SFAST  MOVING  SUMMATION  OF  A  CIXED  POINT  VEC  M 

ONSTANT  SMOVING  SUMMATION  WITH  DIVISION  BY  A  C  M 

STFST  IMP  CONDITION  Oc  ANY  SENSE  SWITCH  m 

TRIX  SFACTOR  A  SYMMETRIC  POSITIVF  DEFINITE  MA  F 

imens ional  array  SROTaTE  CENTRO-SYM metric  OR  ANTISYMMETRIC  2-D  f 
AMPLITUDE  RFSPONSF  SGtNERATE  SYMMETRICAL  FILTER  .v  I  T  H  GIVEN  F 

X  ROOTS  SPOLYNOMIAL  SYNTHESIS  FROM  REAL  AND  COMPLE  F 

COMPLFX  ROOTS  SPOLYNOMIAL  SYNTHESIZED  FROM  ITS  REAL  AND  F 

SLINEAR  INTERPOLATION  IN  A  TABLE  F 


MSCON1 

CHISQR 

MATML1 

MATRA1 

MVSQAV 

SORDFR 

XSODFR 

SQRMLI 

SQUARE 

WLLSFP 

xsqrut 

SOROOT 
PSQRT 
K  I  INTI 
SQRSUM 

mifls 

MIPLS 

LSLINE 

LSSS1 

RLSPR 

RLSPR2 

RLSSR 

rplfmt 

LOCATE 

delta 

XLCOMN 

OUDATA 

REVERS 

LOCATE 

SEVRAL 

SETKP 

VPLUSV 

SUMDFR 

SUM 

POWER 

SQRDFR 

XSQDFR 

SQRSUM 

FAPSUM 

intsum 

BLKSUM 

MUVADD 

MVNSUM 

SWITCH 

mfact 

ROAR2 

gnflti 

POLYSN 
PLYSYN 
L  INTRl 
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SQUADRATIC  INTERPOLATION  IN  A 

cNER4Te  cosine  or  sine  half-wave 

CORP«  MILLION  RANDOM  DIGITS  FROM 
retrieval  OF  DATA  FROM  A  SPECIAL 
MAT  I  ON  FOR  AN  INDAT  A-OUDATA  TYPE 
ORWARD  O'?  BACKWARD  OVER  FILES  ON 
5FAST  COPY  FILE  FROM  ONE 
fLIST  DATA  DECK  AND  REPOSITION 
RMAT  VECTOR  SWRlTp  OUTPUT 

AST  AND  CONVIENT  DATA  STORAGE  ON 
D  FOR  ADDING  TO  AN  INDATA-OUDATA 
READ  FVFRY  n-th  word  from  binary 
WARD  OR  BACKWARD  OVER  RECORDS  ON 
STERMINATE  AN  INDATA-OUDATA 
RD  IS  END  OF  FILE  AND  REPOSITION 
tWRlTF  BINARY  DATA  ON 


TABLE 

tables,  fixed  or  floating  sg 
Tape  SACCESS  ROUTINE  for  RAND 
SFAST  AND  CONVENIENT 
SLIST  AUXILIARY  INFOR 
SSKIP  F 

TO  ANOTHER  -  VERSION  2 
TO  FRONT  of  DECK 


TAPE 

TAPE 

TAPE 

T  A°E 
TAPE 

tape 

tape 

TAPE 

TAPE 

TAPE 

TAPE 

TAPE 

TAPE 

TAPE 

TAPE 

TAPE 


with  normal  OR  literal  FO 

$F 

SINITIALIZE 

5 

SSKIP  ~\jK 
STEST  IE  NEXT  TAPE  RECO 


R  VECTOR  SPRINT  OR  WRITE  OUTPUT  TAPE  A  MACHINE  LANGUAGE  INTEGE 
REPOSITION  TAPE  STEST  IF  NEXT  TAPE  RECORD  IS  END  OF  FILE  AND 
SOPTIONAL  ONLINE  MONITOR  OF  BCD  TAPE  WRITING 
E  STERMINATE  AN  INDATA-OUDATA  TAP 

D  OF  FILE  AND  REPOSITION  TAPE  $TEST  IF  NEXT  TAPE  RECORD  IS  EN 
E  SWITCH  STEST  THE  CONDITION  OF  ANY  SENS 

ID  SUBPROGRAMS  FOR  INCREMENTING.  TESTING.  AND  SETTING  SHYBR 
SWRITE  HOLLERITH  TEXT 
HOLLERITH  TEXT 
SFOR  REAL  TIME 
OPERATION  TIME 
ARBITRARY  TIME 
ARBITRARY  TIME 
SREAL  TIME. 

INTERVAL 


SWRITE 

090  interval  CLOCK 

EN  ACCURACY  SFIND 

FOURIER  TRANSFORM  WITH 
TRANSIENT  WITH 
PROGRAM  RANGE 
NOT  SCHcCK  IF 


FORM  OF 
F  GIVEN 
UEST  IF 

nterval 

CES 


ON  SCOPE 
ON  SCOPE 

TIMING  IN  SECONDS  USING  7 
OF  NEXT  SUBROUTINE  To  GIV 
ORIGIN  SOUICK  INVERSE 
ORIGINSFAST  FOURIER  TRANS 
TO  SPECIFIED  ACCURACY.  0 


CLOCK 


BITRARY 
ORIGIN 
D  PARTS 
S 

'’RELATIONS 
N  FUNCTIONS 


SFOR  REAL  TIME 
SFAST 

sautospectrum  BY  COSINE 

TIME  ORIGINSFAST  FOURIER 
SQUICK  INVERSE  FOURIER 
SFAST  COSINE  AND/OR  SINE 
SFAST  COSINE  AND/OR  SINE 
SFAST  COSINE 
SFAST  COSINE*  SINE 
SCROSSCORRELAT ION  OF 
ORIGINSFAST  FOURIER  TRANSFORM  OF 
SCOMPLETE  CONVOLUTION  0^  TWO 
SCOMPLETE  CONVOLUTION  OF  TWO 
LAG  SCROSSCORRELAT I ON  OF 

LAG  SCROSSCORRELATION  OF 

SOUICK  CROSSCORRELATION  OF  ML  I 

SMATRIX 
SSQUARE  MATRIX 
SINVERSION  OF 
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M 


TIMER  IS  ON  MAKING  ON-LINE  REQ 
TIMING  IN  SECONDS  USING  7090  I 
TRACK  THROUGH  A  VECTOR  OF  INDI 
TRANSFORM  OF  AUTOCORRELATION 
TRANSFORM  OF  TRANSIENT  WITH  AR  F 

transform  with  arbitrary  time  f 
transforms  from  2  or  4  even-od  m 
transforms  of  odd-length  serie  f 
transforms  of  one-sided  AUTO CO  M 
transforms  of  cross-correlatio  f 
transient  vectors  OF  MATRICES  f 

TRANSIENT  WITH  ARBITRARY  TIME  F 

transients  m 

transients  f 

TRANSIENTS  BEGINNING  WITH  ANY  F 
TRANSIENTS  BEGINNING  with  ZERO  F 
TRANSIENTS  F 

TRANSPOSE  M 

TRANSPOSE  m 

trapezoidal  integral  M 


QINTR1 

costbl 

GETRD1 
INDATA 
LISTING 
FSK  I  P 
CPYFL2 
DADECK 
FM  T  OUT 
OUDATA 

setino 

PACDAT 

RSKIP 

TRMINO 

ZEFBCD 

WRTDAT 

PWML  I  u 

ZEFBCD 

ONLINE 

TRMINO 

ZEFBCD 

SWITCH 

INDEX 

7090DISPLA 
709DISPLA 
7090CLOCK1 
TlwSUB 
0  I  rURY 
OF JR  7 Y 
709TI^A28 
CLKON 
7090CLOCK1 
F'ASTRK 
ASPEC2 
OPURRY 
0  I  FUR  Y 
COSP 
C0SIS1 
ASPECT 
XSPECT 
CRSVM 
QFURRY 

convlv-i I 

CONVLV 

CROST 

CROSS 

QXC0R1 

MATRA 

MATRA1 

I  intgr 
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i 5  NDEF I N I  TP  INTEGRAL  BY  TRAPEZOIDAL  RULE  M 

ON  OR  ITS  MAGNITUDE  SDEFINITE  TRAPEZOIDAL  INTEGRAL  OF  FUNCTI  M 

TR  VALUE  INTFG°AL  AMOVING  TRAPEZOIDAL  INTEGRAL  OR  AFjSOLU  M 

PFT  OR  RIGHT  END  $TR  IANGULAR  AVERAGING*  MOVING  L  M 

NUMEPR  TO  MACHINE  INTEGER  STRUNCATE  OR  ROUND  FLOATING  PT.  M 

RAM-II  INTCGFJFXO  RT  DIVIDE  WITH  TRUNCATION  OR  ROUNDING  To  PORT  M 
°SiOv  STWO-DI VENSIONAL  PIlTER  3Y  RFCU  F 

l;v  SFAST  TWO-DIMENSIONAL  SPATIAL  SPECTR  F 

Ta  VECTOR  SUNPACK  AND  RESCALE  A  PACK  CD  DA  M 

"p SON  INTEGRAL  Af'D/OR  INTEGRATE  SUNSCALE  CR  SCALE  VECTOR  FOR  SI  F 

VECTOR  S  F I N  D  SIGNED  OR  UNSIGNED  EXTREMAL  VALUES  OF  A  M 

A  CHI-SDUARED  VARIATE  EXCEEDS  A  VALUE  'PROBABILITY  THAT  F 

SEAST  ABSOLUTE  value  OF  a  V Fl  r OR  M 

'■‘“NT  "DUAL  OR  G° EATER  THAN  GIVEN  VALUEfFAST  SCAN  VECTOR  FOR  ELE  M 
"  •  A  L  I  Z  c  A  VECTOR  TO  GIVEN  ‘-‘axI.MUM  VALUE  $NOR  M 

tSFARCH  A  VECTOR  FOR  A  VALUE  M 

•  0-p  VARIABLES  EQUAL  TO  A  SINGIE  VALUE  ( EXD  OR  FlTGISSFT  ANY  NO  F 

TRAPEZOIDAL  INTEGRAL  OR  ABSOLUTE  VALUE  INTEGRAL  SMOVING  M 

^  1  To  h  EVENLY  SPACED  DATA  VALUES  S IN T ERPOL A T I  ON  OPERAT  M 

VARIABLES  TO  ONE  OF  TWO  SETS  OF  VALUES  $SET  A  LIST  OF  M 

NGESFREOUENCY  COUNT  CE  NUMBER  OF  VALUES  OF  A  SERIES  IN  GIVEN  RA  M 
PTND  SIGV-D  OR  UNSIGNED  EXTREMAL  VALUES  OF  A  VECTOR  S  M 

SEXTREMAL  VALUES  OF  MATRIX  ELEMENTS  M 

GU'-’FN  T  FALLS  INSIDE  TWO  LIMITING  VALUES  SFIND  IF  AR  M 

RS  rOR  SCOPE,  CLIPPING  EXCESSIVE  VALUES  $SCALE  VECTOR  To  INTEGE  M 
cT  VARIABLES  OR  VECTORS  To  given  VALUES  SS  M 

ean  v er Tnp  FOR  POSSIBLE  BLOCK  OF  VALUES  ALL  ABOVE  GIVEN  LEVELSS  F 
Ktn*  OP  VECTORS  equal  TO  SEPARATE  VALUES  (FXD  OR  FLTg>  SSET  ANY  M 

.  OF  VARIABLES  EQUAL  TO  SFPARATE  VALUES  (FXD  OR  FLTGSSET  ANY  NO  F 

TORS  SALLOWS  VARIABLE  DEPTH  INDEXING  UF  VEC  M 

OR  FOR  SCOPE  SUBROUTINE  QISPLA  SVARIABLE  ORIGIN  FORMAT  GENERAT  M 
FES  SENABLE  FORTRAN  VARIABLE  LENGTH  CALLING  SEOUEN  M 

CONSTANTS  SVODIFY  A  SET  of  VARIABLES  BY  A  CONSTANT  OR  BY  M 

•  CONSTANT  SVULTIPLY  any  no.  OF  variables  BY  a  single  FLTG.  PT  F 

ORMAT  SOUTPUT  VARIABLES  FIVE  PER  LINE  IN  G  F  M 

E  PAIRS  OF  VARIABLES  OR  A  SET  OF  VARIABLES  FOR  EQUALITY  SCOMPAR  M 

M  GIVEN  LIMITS  SCHCCK  THAT  VARIABLES  FROM  LIST  FALL  WITHI  M 

5  FOR  EQUALITY  SCOMPARE  PAIRS  OF  VARIABLES  OR  A  SET  OF  VARIABLE  M 
E  VALUES  SSET  A  LIST  OF  VARIABLES  TO  ONE  OF  TWO  SETS  0  M 

Z PRO  SCHOOSE  BETWEEN  TWO  VARIABLES  BY  A  THIRD  ONE  BEING  M 

FORMAT  SOUTPUT  VARIABLES  BY  NORMAL  OR  LITERAL  M 


LUE  (FXD  OP  Ei.TGJSSET  ANY  NO.  OF  VARIABLES  EQUAL  TO  A  SINGLE  VA  E 
LUES  ( FY D  OR  Fl.TZSSFT  ANY  NO.  OF  VARIABLES  EQUAL  TO  SEPARATE  VA  F 
E  VECTOR  OF  MACHINE  ADDRESSES  OF  VARIABLES  IN  A  LIST  SCREAT  M 

NG  SIGN  SS I GN  OF  DIFFERENCE  OF  2  VARIABLES  OR  0  IF  SAME  INCLUDI  M 
VALUES  $SET  VARIABLES  On  VECTORS  To  GIVEN  M 

SPROBABILITY  THAT  A  CHI-SQUARED  VARIATE  EXCEEDS  A  VALUE  F 

ANT  TO  FLEMENTS  OF  A  FXD  OR  ELTg  VECTOR  SADD  A  CO.JST  M 

SCHANGE  ALL  SIGN  BITS  CF  A  VECTOR  M 

? PAST  ABSOLUTE  VALIJF  OF  A  VECTOR  M 


INTGRA 

T  INGL 

MVNTIN 

TAMVL 

XEIXM 

XDIV 

FIRE2 

PLANSP 

UNPAKN 

SMPSON 

MAXSN 

KIINTl 

ABSVAL 

FASCNI 

NMZMG1 

SEARCH 

SETK  -II 

mvntin 

INTOPR 

CHOOSE 

FRQC  T  2 

MAXSN 

MAXSNM 

XLIMIT 

SCPSCL 

SETK 

NXALRM 

setkvs 

SETKS  -II 

GETX 

DSPFMT 

VARARG 

ADDK 

MULK  -II 

CSOUT 

CMP ARP 

LIMITS 

CMPARP 

CHOOSE 

WHICH 

VRSOUT 

SETK  -II 

SETKS  -II 

XLOCV 

xacteq 

SETK 
KIINTl 
BOOST 
CHS  I GN 
ABSVAL 
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9 T  FORTRAN  IWTFr,PR  VcrTQP  TO  *'LI 
*>F  I  NO  AVERAGE  OF  FLOATING 
OR  unsigned  EXTREMAL  VALUES  of  a 

sfloat  a 

CY  DISTRIBUTION  OF  A  FIXED  POINT 
SUMMATION  OF  A  FLOATING  Oc  F I XFD 
NGE  SPACING.  OR  CH ANGr  SIGN  0-  A 
TRAN  INTEGER  VECTOR  AS  HOLLERITH 
PE  with  NORMAL  or  literal  format 
SCOLLAPSE  ODD-LENGTHED 
SSPRFAD  OUT  HOLLERITH 
$PAC<  UD  FORTRAN  INTEGER 
SDIVIDE  A  -LOATING 
T  INTEGER  ^MULTIPLY  AN  ML  I 

ARY  INCREMENTS 

sdifference  fixed  OR  floating 

SFAST  DOUBLING  0»  HALVING  '  "  A 
FATFR  THAN  GIVEN  VALUESFAST  bCAN 
OR  DECREASING  BEHAVIOR  SCHECK 
SCOLLAPSE  ONE-SIDED 
SDERIVATIV^  OF  A 

sfast  track  through  a 
SREVERSE 

CONSTANT  LFNGTh  ssumniation  of 
^multiple  frame  SCO°E  PLOTS  OF 

SM0VE  A 

convfrsely  sscale*  convert  fl^g. 

SFAST  CONVERT  FORTRAN  INTEGER 
" N  SHI-SPEED  EXPANSION  OF  A 

G  $FIX  A  FLOATING 

NCREASING  SIZE)  OF  ELEMENTS  IN  A 
OVING  SUMMATION  OF  A  FIXED  POINT 
SFAST  REVERSE  STORAGE  ORDER  OF  A 
TS  OF  A  MACHINE  LANGUAGE  INTEGER 
SFIND  AVERAGE  OF  FIXED  PT 
SMOVING  AVERAGE  OF  A 
SMOVING  Mr AN  SQUARE  AVERAGE  OF  A 
SNORMALIZE  AND  CHANGE  MEAN  OF  A 

tape  a  machine  language  integer 

SREMOVE  THE  mean  FROM  A  FIXED 
sremove  the  MEAN  FROM  A  floating 
UND  UP.  OR  ROUND  DOWN  A  FLOATING 
SSQUARE  EL.  BENTS  OF  FXD  OP  FLTG 
SSOUARl.  ROOT  OF  A  FLOATING 

um  elements  of  floating  or  fixed 
ouared  elements  of  a  FLTG  or  FXD 
UNPACK  AND  RESCALE  A  PACKED  DATA 

SDIVIDE  A  FXD 
nstant  smultiply 

RMAT  WITH  SPACING  SOUTpUT  NAMED 


vfctor 

SFAST  CONVE 

M 

ITOMLI 

VECTOR 

M 

AVRAGE 

VECTOR 

SFIND  SIGNED 

M 

MAXSN 

VECTOR 

M 

FLOATV 

vector 

SFREQUEN 

F 

FRQCT1 

vector 

sintegrated 

M 

intsum 

vector 

SMOVE .REVERSE.  CHA 

M 

MOVREV 

vector 

SPACK  UP  FOR 

M 

IVTOHV 

vector 

SWRITE  OUTPUT  TA 

F 

FMTOUT 

vector 

ABOUT  ITS  MIDPOINT 

M 

KO'.APS 

VECTOR 

AS  FOPTRAN  INTEGERS 

M 

HVTOIV 

VECTOR 

AS  HOLLERITH  VECTOR 

M 

IVTOHV 

vector 

BY  A  CONSTANT 

M 

DIVIDE 

vector 

BY  A  FORTRAN  FIXED  POIN 

M 

MLISCL 

svector 

DOT  PRODUCT  WITH  ARBI TR 

M 

DOT  J 

vector 

ELEMENTS  IN  PAIRS 

M 

DIFPRS 

vector 

(FIXED  OR  FLOAT  NG) 

M 

DUBLX 

VECTOR 

FOR  ELEMENT  EOUAw.  OR  GR 

M 

FASCN1 

vector 

FOR  MOMOTONE  INCREASING 

M 

MONOCK 

vector 

into  smaller  range 

M 

colaps 

VECTOR 

OF  DIFFERENCING 

M 

DERIVA 

VECTOR 

Op  IND  -~S 

M 

STRK 

V E<  TO'1 

0P  MAT  . \.tS 

F 

mkvrs 

vector 

OVER  ABUTTING  BLOCKS  OF 

M 

blksum 

vector 

sets 

F 

GRAPH 

vector 

TO  A  DIFFERENT  LOCATION 

M 

MOVE 

vector 

TO  MACHINE  INTEGERS  OR 

M 

fxdata 

vector 

TO  ML  I  VECTOR 

M 

ITOMLI 

vector 

UNDER  CUBIC  INTERPOLATI 

M 

EXPAND 

vector 

WITH  OR  WITHOUT  ROUND  IN 

M 

FIXV 

vector 

SFAST  MAKE  INDEX  (BY  I 

M 

SIZEUP 

vector 

SFAST  M 

M 

MUVADD 

vector 

M 

REVERS 

vector 

SFAST  SQUARE  ELEMEN 

M 

SQRMLI 

vector 

M 

XAVRGE 

vfctor 

F 

MVINAV 

vector 

F 

MVSOAV 

vector 

F 

NRMVEC 

VECTOR 

SPRINT  OR  WRITE  OUTPUT 

F 

PWMLIV 

vector 

M 

XREMAV 

VECTOR 

M 

REMAV 

VECTOR 

SROUND.  RO 

M 

RNDV 

vector 

M 

SQUARE 

VECTOR 

M 

SOROOT 

VECTOR 

ss 

M 

SUM 

VECTOR 

SSUM  THE  S 

M 

SORSUM 

vector 

$ 

M 

UNPAKN 

VECTOR 

BY  A  CONSTANT 

M 

XDVIDE 

VECTOR 

BY  FLOATING  OR  FIXED  CO 

M 

MULPLY 

vector 

BY  NORMAL  OR  LITERAL  FO 

F 

VOUT 

75 


VFN  INCRFMFNTS  SFORM  A 

SOI  V  IDF.  ELEMENTS  OF  ONE 

left  OP  right  sshift 

OR  RIGHT  SSHIFT 

SREVERSE  A 

Y  MODF )  SSET  ALL  ELEMENTS  OF 

NT  S  SET  FXD  OR  FLTG 

SSEARCH  A 

OM  FIRST  OP  LAST  TERM  SSEADCH 
ALUFS  ALL  A«OVc  GIVEN  LFVFLSSCAN 
O/OP  INTEGRATE  SUNSCALF  op  scale 
CONST  AN  T  SSUM  SQUadF  OIF.  OP  FXD. 
CONSTANT  $SUm  DIFFERENCE  OF 

CONSTanTsSUM  SQUARE  DIF.  OF  FLTG 

ANGE  and  increment  screate  one 
ARTS  (OR  INVERSE)  SSPLlT  A 

VARIABLES  IN  A  LIST  SCRFATE 

itepal  format  SOFFLINE 

REGISTER  SSCALF  AND  FIX  DATA 

sreflfct  a  fixfd  or  floating 

SNORMaLIZE  a 
clipping  EXCESSIVF  values  sscale 

E  DEVIATIONS  FROM  BASF  $RAISE 

sfast  set 

arbitrary  amount  spotatf  a 

SSqUAPE  POOT  of  a  FIXED 

llows  variable  depth  indexing  of 
sexchange  any  two 

SFAST  DOT  PRODUCT  OF  TWO 
SMOVE  AN  ARBITRARY  SET  OF 
SFAST  REVERSAL  OF  SPECIAL 
ORMATS  SOUTPUT  COLUMN 

SFAST  COMPARE  TWO  ARBITRARY  MODE 
SCR OS SCOP PEL  AT l ON  OF  TRANSIENT 
OOUCT  OR  PFVFRSFD  DOT  PRODUCT  OF 
ODUCT  OR  PFV^OSPD  DOT  PRODUCT  OF 
a  SURTPACT  TWO  FLOATING  0R  FIXED 
PR  PLOT  OF  A  SFT  OF  EQUAL  length 
PR INTEP-dL0T  OF  ARBITRARY  SFT  OF 
HPMaTS  WlTf*  SPACINGSOUTPUT  NA**ED 
fS  (FXD  OP  FL TG )  SSET  ANY  NO,  OF 

SSE  '  LINEAR 

smultiply  plcmfnts  of  two 

S SrT  VARIABLES  OR 
SSFT  A  LIST  OF 
ANT  SOOT  PRODUCT  OF  T  '0 

NC,  SO  I V  I DF  F  LFMENT  S  OF  TWO  FIXED 
SGENERATE  COSINF  OR  SINE  HALF 
R  SPECTRUM  TO  FIND  M I N I mUm  PHASE 


VECTOR  BY  SIFTING  ANOTHER  AT  E  M 

vector  by  those  of  another  m 

VECTOR  ELEMENTS  ,  R I THMET I  CALL Y  M 
VECTOR  ELEMENTS  LOGICALLY  LEFT  M 
VECTOR  ELSEWHERE  OR  IN  PLACE  M 
VECTOP  EQUAL  TO  A  CONSTANT  (AN  M 
VECTOR  EQUAL  TO  A  LINEAR  SEGME  M 
VECTOR  FOR  A  VALUE  M 

VECTOR  FOR  NUMBER.  STARTING  FR  F 
VECTOR  FOR  POSSIBLE  BLOCK  OF  V  F 
VECTOR  FOR  SIMPSON  INTEGRAL  AN  F 
VECTOR  EPQM  ANOTHER  OP  FROM1  A  M 
VFCTOP  FROM  another  OR  FROM  A  M 
VECTOR  FROM  ANOTHER  OR  FROM  A  M 
VECTOR  FROM  ANOTHER  WITH  NEW  R  M 
vector  into  ITS  even  AND  ODD  P  M 
vector  of  machine  ADDRESSFS  of  m 
vector  output  with  normal  or  l  f 

VECTOR,  PACK  N  DATA  POINTS  PER  M 

vector  through  a  constant  m 

VECTOR  to  GIVEN  MAXIMUM  VALUE  M 

vector  to  integers  FOR  SCOPE.  m 
VECTOR  To  POWER  OR  SUM  POWER  0  M 
VECTOR  TO  ZERO  M 

VECTOR  UPWARDS  OR  DOWNWARDS  AN  M 
VECTOR  WITH  ROUNDING  M 

VECTORS  SA  M 

VECTORS  M 

VECTORS  M 

VECTORS  M 

VECTORS  .AS  PRODUCED  BY  SPLIT.  M 
VECTORS  BY  NORMAL  OR  LITERAL  F  M 
vectors  for  identity  M 

vectors  of  matrices  E 

VECTORS  of  MATRICES  SDOT  PR  F 
VFCTORS  of  MATRICES  SDOT  PR  F 
VECTORS  SADD  0  M 

VECTORS  SPRINT  F 

VECTORS  $  F 

VECTORS  by  NORMAL  op  LITERAL  F  M 
VECTORS  fqUAL  TO  SEPAPATF  VALU  M 
VECTORS,  FIXED  and/or  float+ng  m 
VECTORS  FIXED  OR  FLOATING  M 

VFCTORS  TO  GIVEN  VALUES  M 

VFCTORS  TO  Z FRO  M 

VECTORS  WITH  DIVISION  BY  CONST  M 

vectors  with  OR  without  roundi  M 
-WAVE  TABLES,  FIXEn  OR  FLOATING  M 
wavelet  sfactor  POWE  M 

SWIENER  AUTOCORRELATION  F 


SIFT 

VDVBYV 

SHFTR1 

SHFTR2 

REVER 

SETKV 

setlin 

SEARCH 

SRCHl 

NXALRM 

SMPSON 

XSQDFR 

SUMDFR 

SQRDFR 

NURINC 

SPLIT 

XLOCV 

VECOUT 

PAKN 

REFLEC 

NMZMG1 

SCPSCL 

POWER 

STZ 

R0TAT1 

XSORUT 

GETX 

EXCHVS 

FDOT 

MOVECS 

CHPRTS 

CVS0UT 

CMPARV 

CRSVM 

MOOT  3 

mdot 

VPLUSV 

PLTVS1 

PLOTVS 

VSOUT 

setkvs 

setlns 

vtimsv 

setk 

STZS 

vdotv 

XVDVBV 

COSTBL 

factor 

WAC 


RROR  FILTER  OR  PREDICTOR  $W I ENER-LEV IN  SON  LEAST  SQUARE  E  F  WLLSFP 

«RPAD  PVPRY  N-TH  WORD  FROM  BINARY  TAPE  N  PACDAT 

SrOMPARF  ARITHMETICALLY  TWO  WORDS  WHERE  -0  IS  LESS  THAN  +0  M  CMPRA 

$ WR  I T E  HOLLERITH  TEXT  ON  SCOPE  M  7090DISPLA 

SWRITE  HOLLERITH  TEXT  ON  SCOPE  M  709DISPLA 

^R  LITERAL  FORMAT  VFCTOR  SWRITE  OUTPUT  TAPE  WITH  NORMAL  F  FMTOUT 

SWRITE  BINARY  DATA  ON  TAPE  M  WRTDAT 

NGUAGF  INTEGER  VFCTOR  SPRINT  OR  WRITE  OUTPUT  TAPE  A  MACHINE  LA  F  PWMLIV 

IONAL  ONLINE  MONITOR  OF  BCD  TAPE  WRITING  SOPT  M  ONLINE 

O  VAR  I ABLpS  BY  A  THIRD  ONE  BEING  ZERO  SCHOOSE  BETWEEN  TW  M  WHICH 

SFAST  S*T  VECTOR  TO  ZERO  M  STZ 

SSET  A  LIST  OP  VECTORS  TO  ZERO  M  STZS 
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Difference  Between  Programs  Sets  I  and  II 


Additions  172  programs  have  been  added  to  Set  I  In  form 
ing  Set  II.  They  are 


ADDK 

PASCUB 

MDOT 

QUPIT1 

STZS 

ARBCOL 

FASTRK 

MDOT3 

QXCORl 

SUM 

ARC TAN 

PIRE2 

ME MUSE 

RDATA 

SUMDFR 

ASPEC2 

PDCV 

MPACT 

REPLEC 

SWITCH 

AVRAGE 

PLOATV 

MIPLS 

REMAV 

TAMVL 

BLKSUM 

PMTOUT 

MIPLS 

REREAD 

TIMA2B(7094) 

BOOST 

FNDFMT 

MISS 

REVER 

TIMSUB 

CARIGE 

PT24-II 

MONOCK 

RLSPR 

TINGL 

CHOOSE 

OETHOL 

MOUT 

RLSPR2 

TRMINO 

CHS ION 

GETX 

MOUTAI 

RLSSR 

VDOTV 

CLKON 

GNHOLS 

MOVECS 

RMS DEV 

VDVBYV 

CMPARP 

ORAPHX 

MOVREV 

RNDV 

VECOUT 

CMPARV 

HLADJ 

MRVRS 

RQAR2 

VOUT 

CMPRA 

HVTOIV 

MULK-II 

RPLPMT 

VPLUSV 

CNTRDB 

IDERIV 

MULLER 

SEQ3AC 

VRSOUT 

CNTROW 

IPNCTN 

MULPLY 

SETINO 

VS  OUT 

COLABL 

IINTOR 

MVINAV 

SETK 

VTIMSV 

CONTUR 

INDEX 

MVNSUM 

SETK-II 

WHICH 

COSIS1 

INTGRA 

MVNTIN 

SETKP 

WRTDAT 

CPYPL2 

INTHOL 

MVSQAV 

SETKS-II 

XACTEQ 

CROSS 

INTOPR 

MXRARE 

SETKV 

XAVRGE 

CROST 

INTSUM 

NRMVEC 

SETKVS 

XDIV 

CRSVM 

IVTOHV 

NTHA 

SETLIN 

XDVIDE 

CSOUT 

IXCARG 

NURINC 

SETLNS 

XLCOMN 

CUPIT1 

LIMITS 

ONLINE 

SEVRAL 

XLIMIT 

CVS OUT 

LOCATE 

PACDAT 

SHUPPL 

XLOCV 

DADECK 

LSHFT 

PLANS P 

SIPT 

XOOZE 

DELTA 

LSLINE 

PLOTVS 

SIZEUP 

XREMAV 

DERIVA 

LSSS1 

PLTVS1 

SMPSON 

XSQDPR 

DIPPRS 

MATINV 

PLURNS 

SPC0R2 

XSQRUT 

DIVIDE 

MATML1 

POLYS N 

SQRDPR 

XVDVBV 

DOTJ 

MATKL3 

POWER 

SQROOT 

ZEFBCD 

DOTP 

MATRA 

QFURRY 

SQRSUM 

EXCHVS 

MATRA1 

QIPURY 

SQUARE 

EXPAND 

MAXSNM 

QINTR1 

SRC  HI 
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Deletions  11  programs  have  been  deleted  from  Set  I  In 


forming  Set  II.  They  are 

ATSH  CRST1  QNFMT1  UPDATE 

BENIMP  GETREC  ORQDLT  WRTREC 

BENSPT  OETREC-II  ROKWIC 

Carryovers  95  programs  were  carried  over  from  Set  I  to 
Set  II.  In  all  cases  the  date  appearing  on  the  first  card 
of  the  symbolic  deck  has  been  changed  and  in  most  cases 
other  changes  have  also  been  made,  mostly  to  upgrade  the 
documentation  but  in  some  cases  to  improve  the  coding. 

The  carryovers  are 


ABSVAL 

FSKIP 

LOC 

QXCORR 

ADANL 

FT24 

MAXSN 

REVERS 

AMPHZ 

FXDATA 

MLISCL 

RND 

ASPECT 

GENIIOL 

MLI2A6 

ROTATl 

CHISQR 

OETRD1 

MOVE 

RSKIP 

OHPRTS 

QHFLT1 

MPSEQ1 

SAME 

CL0CK1(70S0) 

ORAPH 

MSC0N1 

SCPSCL 

COLAPS 

GRUP2 

MUVADD 

SEARCH 

CONVLV 

HSTPLT 

MVBLOK 

SHFTR1 

CONVLV-II 

HSTPLT- 

-11 

NMZMOl 

SHFTR2 

COSP 

HSTPLT* 

■111(709) 

-111(7090) 

N0INT1 

SIMEQ 

CGSTBL 

HSTPLT- 

NXALRM 

SPLIT 

DISPLA (709) 
DISPLA (709O) 

INDATA 

OUDATA 

SQRMLI 

IPLYEV 

PAKN 

STZ 

DSPPMT 

ITOMLI 

PLYSYN 

UNPAKN 

DUBLX 

KIINT1 

P0KCT1 

VARARG 

FACTOR 

KOLA  PS 

POLYDV 

WAC 

FAPSUM 

LINE 

[709) 

POLYEV 

WLLSFP 

FASCN1 

LINE 

7090) 

PRBFIT 

XFIXM 

FDOT 

LINEH 

,709) 

PR0B2 

XSPECT 

FLOATM 

LINEH 

7090) 

PROCOR 

FRAME  (709) 
FRAME  (709O) 

LINEV 

LINEV 

709) 

[7090) 

PSQRT 

PWMLIV 

FRQCT1 

LINTR1 

QACORR 

FRQCT2 

LISTNO 

O.CNVLV 
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